trouvé un mot dans un tableau (Resolu)

Option Explicit
Private Sub Worksheet_selectionChange(ByVal c As Range)
    If c.Count > 1 Or c.Column <> 2 Or c.Row < 10 Then Exit Sub
    If c <> "" Then With Sheets("Docs"): .Activate: .Range("D7") = c: .ListObjects("TPA").Range.AutoFilter Field:=3, Criteria1:=c: End With
End Sub

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If c.Address = "$D$7" Then
        Select Case c
        Case "": ActiveSheet.ListObjects("TPA").Range.AutoFilter Field:=3
        Case Else: ActiveSheet.ListObjects("TPA").Range.AutoFilter Field:=3, Criteria1:=c
        End Select
        [d7].Select
    End If
End Sub