Petit pb de Macro avec graph

Bonjour le forum,

J'ai crée avec l'aide du forum une macro (bubulles) qui me permet d'avoir un graph interessant.
La macro fonctionne tres bien dans une feuille qui ne contient qu'un seul graph.
Par contre, lorsque j'insere d'autres graph, il y a un probleme.
J'ai essayé de bien preciser à la macro le graph a selectioner
(ActiveSheet.ChartObjects("Chart1").Activate)
Mais sans succes.

Pourriez vous m'aider à comprendre le probleme?

Merci par avance,

JB

http://cjoint.com/?kdvxaEn6o1

J'espere que les fichier cjoint sont toujours acceptés.