Sub test()
Dim cellule As Range, MaChaine As String
Dim col As Long, lig As Long
MaChaine = "blabla"
Set cellule = Sheets("feuil2").Cells.Find(What:=MaChaine, After:=Cells(1, 1), MatchCase:=False)
If Not cellule Is Nothing Then 'au cas ou "blabla" soit abscent
col = cellule.Column
lig = cellule.Row
End If
End Sub