Option Explicit
Sub test()
Dim c As ChartObject, s As Series
Set c = ActiveSheet.ChartObjects(1)
With c.Chart
'crée la nouvelle série
Set s = .SeriesCollection.NewSeries
'tu lui affecte ensuite un nom, des valeurs un type...
'attention, fonction du type de graphe sur lequel ce code est appliqué
'fonctionne bien sur des courbes
With s
.Values = ActiveSheet.Range("M21:o21")
.Name = ActiveSheet.Range("L21")
.ChartType = xlAreaStacked
End With
End With
End Sub