Couleur de shapes

Bonsoir,

Voila j'ai sur une feuille quelques shapes d'une carte de france.

Lorsque je clique sur une shapes elle deviennent rouge et les autres ôte leurs couleurs

Et j'aimerais que certaines chapes ne perde pas sa couleur.

J'ai mis mon dossier qui seras plus explicit

Je vous remercie d'avance

Cordialement

Max

Bonsoir le forum,

Dans le module : supprimer :

For n = 1 To ActiveSheet.Shapes.Count - 3
ActiveSheet.Shapes(n).Fill.ForeColor.SchemeColor = 9

Next n

Bonsoir

Je te remercie mais le^probléme est que j'aimerai que les les shapes de droite continu a foctionner c'est à dire que lorsque je clique sur une, les autres du même groupe reste blanche et le groupe de gauche ne doit j'amais changer doit toujours rester de couleur verte ou jaune...

Merci