Comment incrementer une suppression de bouton

Bonjour,

Sub ClicSurBouton()

    ' si cinq boutons
    For x = 1 To 5
        ActiveSheet.Shapes("Btn " & x).Delete
    Next x
End Sub

Bonjour,
merci de m' avoir répondu, le code fonctionne pour supprimer plusieurs boutons en une fois. Mon problème, je veux supprimer le premier bouton qui en même temps lance une macro. Puis je recommence avec le bouton 2 et ainsi de suite.
Merci et bon dimanche.

Bonjour,

le premier bouton qui en même temps lance une macro. !!!!!! un peu plus d'explication svp

Bonjour,

Au départ, je lance une macro qui me crée plusieurs boutons( le nombre varie suivant le travail à effectuer). Lorsque je clique sur un des boutons, je voudrais récupérer le texte du bouton, le transférer dans une cellule pour pouvoir faire une recherche dans une autre feuille excel et utiliser ces données dans un userform et après, ou supprimer le bouton, lui faire changer de couleur ou supprimer le texte du bouton. je n' utilise pas nécessairement l' ordre des boutons établis.
Je sais que ma demande est un peu complexe, c'est pour cela que je vous remercie pour le temps que vous passer à m'aider.

Ps: voici le code de la macro qui sera lancée avec le bouton

Sub APPEL_DU_CODE()

Range("O3").Select 'copie le texte du bouton dans la cellule O3
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("TC").Select
Range("B47").Select
Selection.End(xlUp).Offset(1, 0).Value = Sheets("MENU").Range("O3").Value
Range("B47").Select
Selection.End(xlUp).Offset(0, 0).Select
ActiveCell.Offset(0, 2).Select

With RC' ouvre l' userform en show modal false
.StartUpPosition = 0
.Left = Application.UsableWidth - .Width
.Show
End With

End Sub

Re,

Je sais que ma demande est un peu complexe ----> Faudrait voir si n'y a pas plus simple que de creer des boutons pour avoir un texte que vous allez effacer ou supprimer le bouton !!!!!!