Salut Michel,
Ben deux solution soit tu enregistres le code en virant tes boutons manuellement un par un... et tu auras la procédure VBA pour "déléter" les boutons un par un avec leur numéro de "shape"...
Soit tu fait çà........ Mais attention tu "kill" toutes les shapes... Drawings, Wordart, ListBox etc avec Tous les Boutons........
Sub KillShapes()
Set FeuilleClean = Worksheets(1)
FeuilleClean.Shapes.SelectAll
Selection.Delete
End Sub
Au Choix...
Bon Week End
@+Thierry