Erreur MACRO a cause Code VBA

Bonjour,
Je suis débutant VBA, j'ai un erreur dans ma 5eme Ligne.
Merci pour votre aide.

Code:

---

1 2 3 4 5 6

i = 3 + Range("JM2").Value Range("JM3:TM" & i).Select ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlAreaStacked ActiveChart.SetSourceData Source:=Range("'Détails Rang1'!$JM$3:$TM$i") ActiveChart.Location Where:=xlLocationAsObject, Name:="Accueil"

---

Bonjour,
Je n'ai pas testé mais pour moi c'est

Code:

---

ActiveChart.SetSourceData Source:=Range("'Détails Rang1'!$JM$3:$TM$" & i)

---