Salut
une autre façon de faire :
Cellule de recherche : B3 (1, 2, 3... lettres)
Lorsqu'on valide, on se retrouve sur le nom de la plage A3:A...
Clic bouton droit sur le nom de l'onglet puis Visualiser le code pour avoir :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Target.Address = "[b]$B$3[/b]" Then
For Each C In Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If C Like [B3] & "*" Then Application.Goto C: Exit For
Next
End If
End Sub