Une fonction qui donnera le truc (renvoie le nombre de filtre actifs) :
VB:
Function FilterCount() As Integer
' Hasco le 26 août 2022
Dim f As Variant
If ActiveSheet.AutoFilterMode Then
For Each f In ActiveSheet.AutoFilter.Filters
FilterCount = FilterCount + f.On * -1
Next
End If
End Function