Bonjour,
ci-après un extrait de code que j'utilise dans une appli :
1/mon tableau feuille est rempli avec des dates
feuille(1, 3) = DateSerial(Year(date_courante), Month(date_courante), 1)
2/Les crit sont définis en nombres
Dim crit_bas As Single, crit_haut As Single
crit_bas = feuille(i, 2): crit_haut = feuille(i, 3)
Selection.AutoFilter Field:=22, Criteria1:=">=" & crit_bas, Operator:=xlAnd _
, Criteria2:="<" & crit_haut
A priori cela fonctionne (ex97 et 2003)
A+
Eric