Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4) And (Target.Row = 5 Or Target.Row = 6) Then
valeur = Target.Value
Sheets("Liste").ListObjects("TKTMEC").Range.AutoFilter Field:=1, Criteria1:=valeur
End If
End Sub