Filtre Date avec la date du jour

Bonjour j'aimerais avoir une macro qui applique à une colonne de date un filtre et garde que les lignes avec une date antérieur à la date du jour + 2 jour. Par exemple aujourd hui on est le 06/04/13 et je souhaiterais un filtre qui me donne les lignes jusqu'au 08/04/2013.

Voila ce que j'arrive à faire mais impossible de faire changer cette date de façon automatique... sa marche pas non plus avec "AUJOURDHUI()+2"

ActiveSheet.Range("$A$1:$CS$5000").AutoFilter Field:=2, Criteria1:= _

"<08/04/2013", Operator:=xlAnd

Je suis pas un pro alors si vous avez une idée...

D avance merci

Mille excuses j'avais pas fait (=AUJOURDHUI()+2) et oui sans le égal cela ne marche pas

Bon ben ça marche pas quand même...

Bonjour

Sub Filtrer()
    ActiveSheet.Range("$A$1:$CS$5000").AutoFilter Field:=2, Criteria1:="<=" & Format(Date + 2, "mm/dd/yy") _
, Operator:=xlAnd
End Sub

Cordialement

SUPER merci beaucoup,.... cela semble si simple....