Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Range
With Target
If .Column <> 4 Or .Count > 1 Then Exit Sub
If .Value <> "" Then Set x = Sheets("Données").Columns(1).Find(.Value2, , xlFormulas, xlWhole, , , False)
If Not x Is Nothing Then Application.Goto x
End With
End Sub