Salut Mowbray, le forum
Avec cette macro tu devrais te débrouiller.
Sub Mowbray()
Dim cel As Range
Dim NomATrouver as String
NomATrouver = "Anti"
MaRange = "A1:A10"
For Each cel In Range(MaRange)
Set c = cel.Find(NomATrouver, LookIn:=xlValues)
If Not c Is Nothing Then
' faire ici ton action sur la cellule 'c.Address'
End If
Next cel
End Sub
Tu modifies NomATrouver et MaRange à ta convenance
c.Address te renvois l'adresse de la cellule contenant ta recherche : ex $A$5
et Range(c.Address) le contenu de la cellule.
Bonne fin de journée
PhiBou