Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Trouve As Range
If Target.Address <> "$L$3" Then Exit Sub
Set Trouve = Me.Range("A:A").Find(Target, LookIn:=xlValues, lookat:=xlWhole)
If Not Toruve Is Nothing Then Trouve.Select
End Sub