XL 2019 Cliquer sur une cellule pour se rendre à une autre.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim cel As Range, vx$
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Row <> 6 Then Exit Sub
    vx = .Value: If vx = "" Then Exit Sub
  End With
  Set cel = Worksheets("Les individus").Rows(6).Find(vx, , -4163, 1, 1)
  If Not cel Is Nothing Then Application.Goto cel, False
End Sub

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim cel As Range, vx$
  With Target
    If .CountLarge > 1 Then Exit Sub
    If Intersect(Target, [D3:D512]) Is Nothing Then Exit Sub
    vx = .Value: If vx = "" Then Exit Sub
  End With
  Set cel = Worksheets("Les individus").Rows(6).Find(vx, , -4163, 1, 1)
  If Not cel Is Nothing Then Application.Goto cel, False
End Sub