Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rech As Variant
If Not Intersect(Target, Range("A2")) Is Nothing Then
Set Rech = Range("A4:A" & Range("A65536").End(xlUp).Row).Find(Target.Value, , xlValues, xlWhole)
If Not Rech Is Nothing Then
Application.Goto Reference:=Rech, Scroll:=True
End If
End If
End Sub