Bonjour le forum

Comment rechercher la valeur "=RECHERCHE " dans toutes les cellules contenant une formule de la colonne A de la feuille de calcul active

J’ai essayé avec le code ci-dessous, çà fonctionne pas ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
On Error Resume Next
    For Each c In Activesheet.Range("A:A").SpecialCells(xlFormulas)
        If c.Formula Like "*=RECHERCHE*" Then
            MsgBox c.Address
        Else
            MsgBox "Aucune formule dans les cellules de la colonne A"
        End If
    Next
J’ai besoin de votre aide svp

Merci d’avance