XL 2016 Macro pour filtrer une colonne de dates en fonction d'une plage horaire choisie - VBA

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F2:G2]) Is Nothing Then Exit Sub
[E2] = "=(ROUND(MOD(C2,1),7)>=ROUND(F$2,7))*(ROUND(MOD(C2,1),7)<=ROUND(G$2,7))" 'critère
[A1].CurrentRegion.AdvancedFilter xlFilterCopy, [E1:E2], [I1:K1]
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E2:F2]) Is Nothing Then Exit Sub
[D2] = "=(ROUND(MOD(A2,1),7)>=ROUND(E$2,7))*(ROUND(MOD(A2,1),7)<=ROUND(F$2,7))" 'critère
[A1].CurrentRegion.AdvancedFilter xlFilterCopy, [D1:D2], [H1:I1]
End Sub

D1:D2

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E2:F2,E5:F5]) Is Nothing Then Exit Sub
[D2] = "=(A2>=INT(E$2))*(A2<INT(F$2)+1)*(ROUND(MOD(A2,1),7)>=ROUND(E$5,7))*(ROUND(MOD(A2,1),7)<=ROUND(F$5,7))" 'critère
[A1].CurrentRegion.AdvancedFilter xlFilterCopy, [D1:D2], [H1:I1]
End Sub

'Exemple de variables :

début = 08:00:00
Fin = 12:00:00

'comme ça je pourrais faire :
                                              début= inputbox ("veuillez entrez la date de début : " , "date de début" )
                                              Fin= inputbox ("veuillez entrez la date de Fin : " , "date de Fin ")

Sub Choisir()
Dim n As Byte, x$
For n = 0 To 1 '2 passages
    x = ""
    Do While Not (x Like "#:##" Or x Like "##:##") Or Not IsDate(x)
        x = InputBox("Heure de " & IIf(n, "fin", "début") & " au format h:mm :", "Choisir", x)
        If x = "" Then Exit Sub
    Loop
    ThisWorkbook.Names.Add IIf(n, "Fin", "Début"), CDate(x) 'noms définis
Next
[D2] = "=(ROUND(MOD(A2,1),7)>=ROUND(Début,7))*(ROUND(MOD(A2,1),7)<=ROUND(Fin,7))" 'critère
[A1].CurrentRegion.AdvancedFilter xlFilterCopy, [D1:D2], [E1:F1]
End Sub