Sub rajoutSerie()
Dim c As ChartObject, s As Series, b As Range
Set c = Sheet2.ChartObjects(1)
With c.Chart
Set s = .SeriesCollection.NewSeries
With s
.Values = [COLOR="Red"]Sheet4.Range(v)[/COLOR]
.Name = Sheet2.Range("A1").Text
End With
End With
End Sub