Bonjour à tous,
Une petite variante.
Cdlt.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet, lo As ListObject, rw
If Target.Address = "$C$14" And Not IsEmpty(Target) Then
Set ws = Worksheets("Feuil3")
Set lo = ws.Range("Tableau1").ListObject
rw = Application.Match(Target.Value, lo.ListColumns(1).DataBodyRange, 0)
If IsError(rw) Then
MsgBox "Donnée introuvable.", 64
Else
ws.Activate
lo.ListRows(rw).Range.Select
End If
End If
End Sub