Comment récupérer après filtrage le critère ayant servi à le faire ?

Récupérer le critère de filtre pour chacun des champs :

sub zzz_Filtre()
 Dim f As Filter
 Set w = Sheets("Feuil1")
 For Each f In w.AutoFilter.Filters
 If f.On Then crit = Right(f.Criteria1, Len(f.Criteria1) - 1)
 MsgBox crit
 Next
 end sub