Sub filtrer()
On Error Resume Next
ActiveSheet.ListObjects(1).Range.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E1").CurrentRegion, Unique:=False
On Error GoTo 0
End Sub
Sub afficher()
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
End Sub