Salut Xorsankukai !
Tu as tout à fait raison ! J'ai écrit un peu vite et c'est bien In Worksheets(f).Shapes
qui cible la collection Shapes de la feuille. Et comme je n'ai rien testé en l'absence de fichier, c'est passé...
Pour les boutons 1 et 2, là j'ai eu la flemme ! et comme l'intéressé n'a pas précisé la chose comme il lui appartenait de le faire... à lui de venir réparer son oubli le cas échéant.
Comme je vois que tu suivais notre ami dans l'utilisation d'un objet ShapeRange, tu aurais pu regrouper les deux dans le tableau pour les supprimer simultanément. Lui l'a sorti de l'enregistreur, qui bêtement ne procède qu'ainsi même avec un tableau d'une seule forme... Mais les subtilités de Microsoft font que la collection Shapes n'a pas de méthode Delete, l'objet Shape oui, et l'objet ShapeRange (association de plusieurs formes dans un tableau) également.
On ne peut donc pas supprimer toutes les formes d'une feuille en bloc, sauf à passer par un objet ShapeRange qui les regroupe toutes (ce qui passe obligatoirement par la méthode SelectAll de la collection Shapes...)
Cordialement.