Trouver une cellule selon son contenu

Bonjour,
Je suis en train de réaliser un code qui va me permettre de trouver une cellule dans une plage de cellule, selon sont contenu qui est du texte. J'ai donc utiliser les méthodes With, Set et .Find. Cependant, il me renvoie une erreur mais je ne comprend pas, voici mon code :

With Sheets(Suivi).Range("30:39")
    Set Compteur_Demande = .Find(What:="Compteur Demandeur", _
                            After:=.Cells(1), _
                            LookIn:=xlFormulas, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False, _
                            SearchFormat:=False)
End With
Colonne_Compteur_Demande = Compteur_Demande.Column

Je suis à votre disposition s'il vous faut plus d'infos !
Cordialement