Sub Action()
For Each ValFiltre In ActiveSheet.AutoFilter.Filters(1).Criteria1
ValFiltre
Next
Select Case ValFiltre
Case FiltreAttendre
'Mon action attendre
Case FiltreContinuer
'Mon action continuer
Case FiltreStopper
'Mon action stop
Case Else '==> Pas de filtre
'Mon action pas de filtre
End Select
End Sub