graphique et VBA

Bonjour

Dans un classeur, j'ai un graphique.
Je veux le copier pour le coller dans un autre classeur.

je fais :

Code:

---

1 2	Activesheet.Chartobjects("Graphique 1").activate Activesheet.ChartArea.copy

---

mon problème, j'aimerai que ce graphique s'appelle autrement.
exemple :

Code:

---

1 2	Activesheet.Chartobjects("Disponibilité").activate Activesheet.ChartArea.copy

---

et j'aimerai qu'il est le même nom quand je le colle dans mon autre classeur?

Car chaque mois, ce graphique évolue.
Donc je dois supprimer ce graphique dans le 2ieme classeur, pour recoller le nouveau du 1er classeur.
Cordialement
Thierry