bonjour
1/ vérifie tes paramètres régionaux, dates en format court
2/
dans une de mes applis qui tourne sur 97 et 2003, j'ai une séquence qui fonctionne, du genre
Dim crit_bas As Single, crit_haut As Single
crit_bas = DateSerial(Year(date_courante), Month(date_courante) + 2, 1)
crit_haut = DateSerial(Year(date_courante), Month(date_courante) + 3, 1)
Selection.AutoFilter Field:=22, Criteria1:=">=" & crit_bas, Operator:=xlAnd _
, Criteria2:="<" & crit_haut
Si cela peut t'aider, sinon joins un petit fichier
A+
Eric