Créer une graphique avec colonnes disjointes et variables

Bonjour,

Mon objectif est de créer un graphique qui trace automatiquement, lorsque je rajoute une année de plus à mon tableur, le graphe correspondant. Janv et Dec sont des variables qui correspondent aux lignes de l'année n+1 des mois de janvier et décembre et en colonne F se trouve la donnée que je veut visualiser mois par mois. J'ai un problème de compilation que je n'arrive pas à résoudre. Mon script est en dessous, pouvez-vous m'aider svp? merci

' GRAPHIQUE

'

'Selectionner la colonne B de Janv à Dec et la colonne F de Janv à Dec

Range("B" & Janv & " :B" & Dec, "F" & Janv & " :F" & Dec).Select (erreur écriture à priori il selectionne bien B mais ensuite il prend de C à F)

ActiveSheet.Shapes.AddChart.Select

'Placer le graphique au niveau de la ligne Janv et de la colonne M

ActiveChart.SetSourceData Source:=Range("'ActiveSheet'!$Janv:$M") (erreur d'écriture il ne comprend pas)

ActiveChart.ChartType = xlColumnClustered