bonsoir
ci joins un petit bout de code qui t'aideras à chercher
et à trouver
Sub Cherche_Texte_dans_colonne()
Dim X, C, Col&, K, Plage As Range
Set Plage = Range("F2:F500")
Plage.Select
X = "=S*"
Col = 6
Set C = Plage.Find(X, LookIn:=xlFormulas)
If C Is Nothing Then
MsgBox ("ras")
Else
Range(C.Address).Select
selection.name=repere
MsgBox (X & " trouvé à cette adresse " & C.Address & " ligne : " & C.Row & " colonne: " & C.Column)
End If
End Sub