Sub SoftmaMacro()
'-- Partie du code que j'ai modifier -----------------------------
Dim MaFeuille As Worksheet
MaFeuille.ChartObjects("Graph1").Activate
Set c = Range("Données1-2!D1")
'-----------------------------------------------------------------------
Do While c <> ""
With ActiveChart
.SeriesCollection.NewSeries
With .SeriesCollection(.SeriesCollection.Count)
.Name = c 'Nom de la série
.XValues = Range(c.Offset(2, 0), c.End(xlDown))
.Values = Range(c.Offset(2, 1), c.Offset(2, 1).End(xlDown))
End With
End With
Set c = c.Offset(0, 3)
Loop
End Sub