Modifier le format de plusieurs shapes avec le code "Next i"

Salut le forum, hé oui, j'ai encore besoin de vous...

J'ai une feuille avec plusieurs shapes (boutons) qui sont d'une certaine couleur lorsqu'ils sont"actifs"(macro associé au bouton) et d'une autre couleur lorsqu'ils sont "innactifs" (aucune macro associé au bouton) car, même si plusieurs utilisateurs utilisent des fichiers identiques, ils n'ont pas nécessairement besoin de tous les boutons sur la feuille.

J'ai une macro qui modifie la couleur d'un bouton actif pour innactif et le contraire aussi.

Exemple:
ActiveSheet.Shapes(''IM'').select
with selection...(code qui effectue les changements)

Je voudrais, avec la fonction -next- changer tous les boutons en une seule opération. Tous mes boutons ont des noms de 2 lettres qui leur sont attribué (PA, IM, NF, TX, ...). J'aimerais savoir comment changer (''IM'') de mon exemple pour un code qui effectuerait le travail pour tous mes shapes.

Je pourrais recopier la même macro avec chacun des noms des SHAPES (boutons) mais je suis certains que la fonction -next- peut faire le travail.

Comment procéder ?

Merci d'avance encore une fois...

Xtian