filtre automatique

BONJOUR A TOUS

Suite une action de filtrage automatique je lance une macro pour recuperer
les donnees sur une autre feuille,jaimerais interdire la macro si le filtre auto
n'est pas activé et 2°condition qui me manque  s'il n'y a pas eu de criteres de choisis

sub recup()
If w.AutoFilterMode Then
--
---
---
---

end if
end sub

Bonsoir,

Sub Test()
If Worksheets(1).FilterMode And Worksheets(1).AutoFilterMode Then Beep
End Sub

Ok ?

merci c'est impeccable