Filtrer date de début et date de fin

Bonjour,

je souhaite par l'intermédiaire d'input box faire un filtre sur une colonne qui comporte des dates.Mon but est de filtrer une date de début et une date de fin sous forme d'un formulaire,j'y arrive mais seulement quand je fais le filtre je ne peux pas retirer le filtre.Je suis obligé de fermer mon classeur.
Merci d'avance à celui qui peut m'aider.
Ci-après le code que j'ai fais!!

Sub Bouton1_Cliquer()
Dim DateRepere As Date
Const PR = vbLf & vbLf & "Entrer la date de ", TI = "   FILTRE DATE"

    datedebut = InputBox(PR & "début  :", TI, "01/01/" & Year(Now))
    If IsDate(datedebut) Then datefin = InputBox(PR & "fin  :", TI, datedebut)
    If Not IsDate(datefin) Or datefin < datedebut Then Beep: Exit Sub
    Application.ScreenUpdating = False
'Selection.AutoFilter Field:=1, Criteria1:=">=" & Format(TextBox1, "dd/mm/yy"), Operator:=xlAnd, Criteria2:="<=" & TextBox2
Cells(1, 1).Select
Selection.CurrentRegion.Select
nl = Selection.Rows.Count
    Data = Cells(gt, 1)
    If Data < CDate(datedebut) Or Data > CDate(datefin) Then
    Rows(gt).Select
    Selection.EntireRow.Hidden = True
    End If
Next gt
        Application.ScreenUpdating = True

    
End Sub