Merci pour tes réponses , mais je n'ai pas trop compris :
j'ai bien identifié le bouton à laisser sur ma page et ceux à effacer , par rapport à tes deux possibilités données je ne vois pas comment les appliquer ?, aussi merci pour la macro permettant de recenser les objets
......ce que je souhaite faire c'est introduire le code :
For Each Obj In ActiveSheet.Shapes
If Obj.Type = msoFormControl Then Obj.Delete
Next Obj
en y indiquant une exception sur le bouton choisi pour qu'il ne soit pas effacé
merci