re,
parfait merci beaucoup !
mais j'ai un autre problème, car j'ai dû ajouter d'autres formes sur la feuille, et la surprise !, lorsque je clique sur un de mes choix , toutes les autres formes disparaissent, (texbox, ellipse etc), il ne reste que les formes qui s'appelent "choix"
je crois que cela vient de :
For Each i In .Shapes 'boucle sur toutes les formes
If Left(i.Name, 3) <> "cho" Then i.Delete 'toutes les formes qui ne s'appellent pas "cho" disparaissent
et
For Each i In .Shapes 'boucle sur toutes les formes
If Left(i.Name, 3) <> "cho" Then compte = 1 ' celle la je sais pas ?
Comment faire pour ne masquer que les photos, car les autres formes ne s'appellent pas "cho" Suis je obligé de les renommer "cho" x, xx, xxx ??
Au Secours Sousou !!!!
merci