Bonjour,
plus simplement ... pas de bouton, la macro réagit au changement de A2
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1").CurrentRegion) Is Nothing Then
On Error GoTo tout
Range("A5").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1:A2"), Unique:=False
Exit Sub
tout:
ActiveSheet.ShowAllData
End If
End Sub