Condition verification tri avant execution macro

Bonjour,
J'ai créé une petite macro qui permet aux utilisateurs de "defiltrer" une feuille excel protégée juste en cliquant sur un bouton

Sub Test()


ActiveSheet.Unprotect Password:="XXXX"
ActiveSheet.ShowAllData
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, Password:="XXXX"



End Sub

Mais lorsqu'un utilisateur execute cette macro alors qu'il n'y a pas de filtre activé, la macro bugge et laisse la feuille déproteger...

Je voudrais faire un IF où avant l'execution de la macro, il vérifie si il y a un filtre activé...

D'avance merci pour votre aide !