Recherche même contenu d'une cellule dans un second onglet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D2:D" & Range("D65535").End(xlUp).Row)) Is Nothing Then
Dim cellule As Range
test = Target.Value
If test = "" Then Exit Sub
Sheets("Données").Select
For Each cellule In Sheets("Données").Range("A2:A" & Range("A65535").End(xlUp).Row)
If cellule.Value = test Then
Sheets("Données").Cells(cellule.Row, 1).Select
Exit For
End If
Next cellule
End If
End Sub

Range("C2:C" & Range("C65535").End(xlUp).Row)

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