Private Sub Worksheet_Change(ByVal Target As Range)
Dim lo As ListObject, n As Long, lr As ListRow
If Target.Address = "$Q$1" And Not IsEmpty(Target) Then
Set lo = Me.ListObjects("T_Données")
n = Application.Match(Target.Value, lo.ListColumns(4).DataBodyRange, 0)
Set lr = lo.ListRows(n)
lr.Range.Select
End If
End Sub