Sub PoseLesFiltres()
Range("A1:H1").Select
Selection.AutoFilter
End Sub
Sub PlacerFiltreAuto()
ActiveSheet.AutoFilterMode = False
Range("A1:H1").AutoFilter
End Sub
Sub PlacerFiltreAuto()
On Error Resume Next
ActiveSheet.ListObjects(1).ShowAutoFilterDropDown = True
If Err Then ActiveSheet.ListObjects(1).Range.AutoFilter
End Sub