Filtrer valeur comprise entre 2 variables

Bonjour,

Je viens vers vous aujourd'hui, car je suis perdu.

En effet j'aurai besoin de filtrer dans une liste de date une partie de celle-ci comprise entre deux dates (variables).

Merci d'avance

Ci-dessous, vous trouverez la pièce jointe.

J'ai essayer avec ce bout de code

Sub Test()
'
' Test Macro
'

Dim ete As Date
Dim hiver As Date

ete = InputBox("Veuillez Saisir la date de début d'hiver ")
hiv = InputBox("Veuillez Saisir la date de fin d'hiver ")
    Cells.Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$Q$391").AutoFilter Field:=1, Criteria1:= _
        ">" & ete & "", Operator:=xlAnd, Criteria2:="<" & hiver & ""
End Sub

Et là rien ne ce passe mise à part qu'il filtre toute les données

Merci de votre aide