Salut sa3d88,
peut-être ainsi si ta TextBox se trouve dans une USF.
Code à coller dans le module VBA de l'USF.
Nom de feuille et n° de colonne à adapter, bien sûr...
Private Sub TextBox1_AfterUpdate()
'
Dim rCel As Range
'
On Error Resume Next
Set rCel = Worksheets("Feuil1").Columns(1).Find(what:=Me.TextBox1.Text, lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlNext)
If Not rCel Is Nothing Then MsgBox Me.TextBox1.Text & " " & rCel.Row
On Error GoTo 0
'
End Sub
A+