Génération de graphique avec macros

Bonjour,

Je souhaiterai créer un bouton sur ma page Excel qui me permettrai de générer automatiquement un "camembert".
Pour cela j'ai fait tout le processus pour enregistrer ma macro, et j'ai créé mon bouton sur lequel j'ai affecté cette macro.
Résultat :

Code:

---

1 2 3 4 5 6 7 8 9

ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = x13DPieExploded ActiveChart.SeriesCollection (1).Name = "='Septembre 2018' !$B$24" ActiveChart.SeriesCollection(1).Value = _ "='Septembre 2018' !$E$24; 'Septembre 2018' !$G$24; 'Septembre 2018' !$J$24" ActiveChart.SeriesCollection(1).XValue = _ "='Septembre 2018' !$E$23; 'Septembre 2018' !$G$23; 'Septembre 2018' !$J$23" ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).ApplyDAataLabels

---

J'ai ensuite supprimé le graphique que je venais de générer pour tester le bouton et j'ai eu le droit à

Citation:

---

erreur d'exécution '1004': Erreur définie par l'application ou par l'objet

---

Lorsque je lance le débogage, ça bloque à cette ligne :

Code:

---

1 2	ActiveChart.SeriesCollection(1).Value = _ "='Septembre 2018' !$E$24; 'Septembre 2018' !$G$24; 'Septembre 2018' !$J$24"

---

Mais je ne comprends pas pourquoi, une idée ?

QUESTION SUPPLÉMENTAIRE : À l'avenir j'aimerais utiliser cette macro dans d'autres feuilles, existe-t-il une commande pour remplacer "Septembre 2018" (nom de ma feuille), par un nom générique qui récupérera le nom de la feuille en cours?


PS, soyez indulgent, je débute.... Et un grand merci d'avance à tout ceux qui voudront bien m'aider !