double filtre VBA avec dates paramétrées

Bonjour novice en VBA, je souhaite faire un filtre sur 2 colonnes:
l'un chaine de caractère
l'autre en format date (je dois filter un période comprise entre 2 dates: date1 et date2).
Et ca marche pas.

Sheets("IMP").Select
DATE1 = CDate(Cells(9, 6))
date2 = CDate(Cells(9, 7))

Sheets("planning global").Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="e-learning"
Selection.AutoFilter Field:=4, Criteria1:=">=" & date1, Operator:=xlAnd _
, Criteria2:="<=" & date2

Est ce que quelqu'un peut m'aider. merci.