XL 2016 Filtrer avancé entre deux Dates

Sub Supprimer()
Application.ScreenUpdating = False
With Feuil1 'CodeName à adapter
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .[A4].CurrentRegion
        .Columns(4).Insert xlToRight 'insère une colonne auxiliaire
        .Columns(4) = "=1/OR(RC[1]<R1C4,N(RC[1])>R2C4)" 'formule des critères
        .Columns(4) = .Columns(4).Value 'supprime les formules
        .Sort .Columns(4), xlDescending 'tri pur regrouper les 1 et accélérer
        On Error Resume Next 'si aucune SpecialCell
        Intersect(.Columns(4).SpecialCells(xlCellTypeConstants, 1).EntireRow, .Cells).Delete xlUp
        .Columns(4).Delete xlToLeft 'supprime la colonne auxiliaire
    End With
    With .UsedRange: End With 'actualise les barres de défilement
End With
End Sub