Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
If Target.Address = "$A$1" Then
With Sheets("feuil2")
Set x = .Cells(Application.Match(Target, .Columns(1), 0), 1)
If Not x Is Nothing Then
.Activate
.Range(x.Address(0, 0)).Activate
End If
End With
End If
End Sub