voilà, j'ai retrouvé le code pour le décalage des graphes en boucle :
Set graphe = Worksheets("Feuil1").ChartObjects.Add(300 + Decalage, 1 + Decalage, 400, 220)
'décale à gauche 'décale vers le bas
With graphe.Chart
.SetSourceData Worksheets(i).Range("J14", Range("J14").End(xlDown))
.ChartType = xlXYScatterSmoothNoMarkers
.ChartArea.Interior.ColorIndex = 34
.PlotArea.Interior.ColorIndex = 8
.PlotArea.Width = 500
.PlotArea.Height = 500
.SeriesCollection.Add Plage, xlColumns, True, True
End With
Decalage = Decalage + 30 'modifie l'écart entre graphes
Next i
il te suffit de faire varier les paramètres
albert