En supposant que tes contrôles ont les nom suivants :

Sub tesT()
arr = Array("Rectangle 1", "Rectangle 2", "Rectangle 3", "Rectangle 4")
With Worksheets("Feuil2") ' Nom feuille à adapter
For Each elt In arr
.Shapes(elt).Delete
Next
End With




<crolegoogle***skynet.be> a écrit dans le message de news:
5a0cfc11-0fe0-4637-b8af-1c3b924b6702...oglegroups.com...
Bonjour le groupe,

J'utilise Excel 2007
J'ai fait sur une feuille des formes automatique en forme de bouton
(ils sont jolis avec 2007)
Mais voilà, lorsque par l'action d'un de ses boutons la feuille active
se recopie, je souhaiterais suprimer 4 de ses formes.
Je cherche en faisans une macro mais rien ni fi.
Y-a-t'il une solution en VBA de les suprimer (seulement 4)
Ils ont comme nom "Rectangle à coins arrondi 1,2,3,4"

Merci pour vos réponses
Cordialement
Crole