bonjour,

comment puis je selectionner un shape par son texte svp?

j'ai créer des boutons avec le code suivant:

Sub b_validation_Click()
Dim k As Integer
k = Application.WorksheetFunction.CountA(Range("A2:A65536"))
For i = 2 To k + 1
  ActiveSheet.Buttons.Add(Cells(1, 8).Left, Cells(i, 1).Top, Cells(1, 8).Width, Cells(1, 8).Height).Select
      Selection.Characters.Text = "s"
Next
End Sub

et j'aimerais faire un bouton pour les supprimer en selectionnant leur shape par leur texte "s".

merci pour votre aide,

cdlt

ryuk47