Private Sub CommandButton1_Click()
With [N5:V25]
[A2] = "=COUNTIF(" & .Rows(2).Address(0, 0) & ",1)"
.AdvancedFilter xlFilterInPlace, [A1:A2] 'filtre avancé
End With
[A2] = ""
End Sub
Sub RAZ()
If Me.FilterMode Then Me.ShowAllData 'si la feuille est filtrée
End Sub