voici un bout de mon code:
 
     
    Range(Cells(3 + k, 6), Cells(4 + k, 6 + nbinc)).Select
    Application.CutCopyMode = False
    Charts.Add
    ActiveChart.ChartType = xlXYScatter
    ActiveChart.SetSourceData Source:=Sheets("Feuil1" ).Range(Cells(3 + k, 6), Cells(4 + k, 6 + nbinc)), PlotBy _
        :=xlColumns
   ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
   With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "déflexion"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = _
        "hauteur du pieu (m)"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "déflexion (m)"
    End With
 
ça ne marche pas, il me dit "Feuil1=<variable objet ou variable de bloc with non définie>"
comment dois je définir Feuil1?

Il me semble que "Feuil1" est le nom que l'on voit en bas de la feuille dans l'onglet. Peut-être que ta feuille ne s'appelle pas "Feuil1".

c'est la première idée que j'ai eu aussi mais elle s'appelle bien Feuil1...

Essaye avec le nombre 1 (qui correspond à la première feuille) :

 
P.S. : dans le forum, utilise les balises fixed pour une meilleure lisibilité du code que tu nous montres

Bonjour,
L'erreur venait dans la définition de l'objet Cells. Le code modifié de cette façon fonctionne :

Cordialement
Epéna

merci beaucoup