Bonjour à tous!

J'ai une feuille excel pleine de boutons dont je parcours les textes à la recherche d'un autre texte:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
If Range("N4").Value <> "" Then
    Texte_recherche = Range("N4").Value
    For Each bouton In ActiveSheet.Shapes
      bouton.Select
      Texte = Selection.Characters.Text
      Resultat = Application.WorksheetFunction.Search(Texte_recherche, Texte)
      If (Resultat > 0) Then
          MsgBox ("Trouvé! ")
      End If
    Next bouton
End If
Mais voilà: si le texte n'est pas trouvé, la macro plante et me retourne une erreur 1004 "impossible de lire la propriété search de la classe WorksheetFunction"

Quelqu'un a une idée là-dessus?
Merci!