Sub boucleFiltresFeuille()
'la macro jointe permet d'afficher tous les criteres de filtres actifs dans la Feuil1
Dim i As Byte
For i = 1 To Feuil1.AutoFilter.Filters.Count
If Feuil1.AutoFilter.Filters.Item(i).On = True Then _
MsgBox "Le critère attribué : " & Feuil1.AutoFilter.Filters.Item(i).Criteria1
Next i
End Sub