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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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"