VBA Copie de Graphe

Bonjour à tous,

Je souhaite faire un copier coller de graphe d'un tableau excel vers un autre tableau toutefois j'ai un retour de ce type

ActiveSheet.Shapes.Range(Array("graphe 2")).Select

J'ai mis en PJ ma macro pr montrer l'exemple où je souhaite copier la mise en forme de graphe 2 en graphe 1

Mais ça bug!! je n'arrive pas trouver le pb si qq un peut m'eclairer merci

mon graphe 2 sous l'onglet graphe 1