bonsoir Aurore, une panne adsl ne m'a pas permis de répondre rapidement
fais un essai avec ce code qui utilise des décalages à régler selon tes besoins (tu renommes les feuilles et les plages, bien entendu)
si je trouve le temps, j'essaie d'envoyer un zip
Sheets(3).Select
Set Plage = .Range("A2:C2", .Range("A2:C2").End(xlDown))
End With
Set Graphe = Worksheets("Statistiques").ChartObjects.Add(350 + Decalage, 50 + Decalage, 400, 220)
With Graphe.Chart
.ChartType = xlXYScatter
.SeriesCollection.Add Plage, xlColumns, True, True
End With
Decalage = Decalage + 20
End If