Macro bizarre !!!

If Not curShape.Type = msoAutoShape Then GoTo 1
         On Error Resume Next
         ' si le contenu du shape parcouru commence par "texteRecherché"
         If curShape.TextFrame.Characters(Start:=1, Length:=Len(texteRecherche)).Text = texteRecherche Then
             Set shapeRecherche = curShape    'récupérer le shape
             isShape = True  'préciser qu'on a trouvé un shape
         
         End If

1    Next curShape

For Each curSheet In ThisWorkbook.Sheets    'parcourir toutes les feuilles
    isShape = False     ' on par du principe qu'il n'y a pas de shape contenant "toto" dans la feuille
    For Each curShape In curSheet.Shapes 'parcourir tous les shape de la feuille actuelle
         If curShape.AlternativeText <> "" And curShape.Type = msoAutoShape Then
            If curShape.TextFrame.Characters(Start:=1, Length:=Len(texteRecherche)).Text = texteRecherche Then
                Set shapeRecherche = curShape    'récupérer le shape
                isShape = True  'préciser qu'on a trouvé un shape
            End If
         End If
    Next curShape   'passer au prochain shape de la feuille
    If isShape Then     'si on à trouvé le shape (si "isShape" = True)
    'Remarque: on pourait écrire "If isShape = True Then"
'Tu peux ici faire ce que tu veux de ton shape. si j'ai bien compris, tu veux changer la macro affectée à ce shape,
'je crois que c'est ça :
'''''   shapeRecherche.OnAction = "la_macro_a_affecter"
        'afficher dans une "MessageBox"
        MsgBox ("feuille: " & curSheet.Name _
        & vbNewLine _
        & "nom du shape contenant """ & texteRecherche & """: " & shapeRecherche.Name)
        '- "feuille: <nom de la feuille courante>"
        '- retour à la ligne
        '- "nom du shape contenant "<texteRecherché>": <nom du Shape courante>
        
    Else    'sinon
        'afficher dans une "MessageBox" : "pas de shape contenant "<texteRecherché>" dans la feuille: <nom de la feuille courante>"
        MsgBox ("Il n'ypas de shape contenant """ & texteRecherche & """ dans la feuille: " & curSheet.Name)
    End If
Next curSheet   'passer à la prochaine feuille du classeur