Bonjour,
une proposition par macro assez simple
Sub filtrer()
Range("A4").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1").CurrentRegion, Unique:=False
End Sub
Sub raz()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub