VBA - supprimer toutes les lignes au dessus/en dessous

Sub supprimer_lignes()
   
    'si les dates se trouvent en colonne A
    Dim date_i As Range, ligne As Range, lignes_à_supprimer As Range
    
    With ActiveSheet
    
        'stockage lignes à supprimer
        For Each date_i In Range(.[A1], .[A:A].Find("", SearchOrder:=xlRows, SearchDirection:=xlPrevious))
            Set ligne = date_i.EntireRow
            If date_i < date_début.Value Or date_i > date_fin.Value Then
                If lignes_à_supprimer Is Nothing Then Set lignes_à_supprimer = ligne _
                Else Set lignes_à_supprimer = Union(lignes_à_supprimer, ligne)
            End If
        Next date_i
    
        'suppression lignes
        lignes_à_supprimer.Delete
    
    End With


End Sub

 If date_i < date_début.Value Or date_i > date_fin.Value