Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B3") = "All" Then
ActiveSheet.ListObjects("Liste1").Range.AutoFilter Field:=2
Else
Sheets("2011").Range("A11").Select
Filtre = Range("B3")
Selection.AutoFilter Field:=2, Criteria1:=Filtre
End If
End Sub