Option Explicit
Option Compare Text
Sub TestRecherche()
Dim Plage As Range, B&, Recherche$, L&
Recherche = 'MaRecherche'
L = Range('A65536').End(xlUp).Row
'Set Plage = Sheets(1).Range(Cells(1, 1), Cells(500, 1))'si tu veux que la recherche soit figée sur une plage
Set Plage = Sheets(1).Range(Cells(1, 1), Cells(L, 1)) 'si tu veux que la recherche soit dynamique
For B = 1 To Plage.Count
If Plage(B) Like Recherche Then
Plage(B).Offset(0, 1) = Plage(B).Row
End If
Next B
End Sub