Microsoft 365 Supprimer des lignes en VBA

Option Explicit
Sub Supprimer()
   Dim LOt As ListObject, T(), L&
   Set LOt = [Tableau14].ListObject
   T = LOt.ListColumns("Date comptable").DataBodyRange.Value
   For L = UBound(T, 1) To 1 Step -1
      If T(L, 1) < #3/01/2022# Then LOt.ListRows(L).Delete
      Next L
   End Sub

Sub Filtre()
Dim P As Range, nlig&
Application.ScreenUpdating = False
[F2] = "=OR(B2=""A"",B2=""B"")*(D2>DATEVALUE(""28/02/2022""))" 'critère
With [A1].CurrentRegion
    .AdvancedFilter xlFilterCopy, [F1:F2], [Z1] 'filtre avancé copié en Z1
    [F2] = ""
    Set P = [Z1].CurrentRegion
    nlig = P.Rows.Count
    P.Copy .Cells(1)
    P.Clear
    If .Rows.Count > nlig Then .Rows(nlig + 1 & ":" & .Rows.Count).Delete xlUp
End With
End Sub

Sub Filtre()
Dim P As Range, nlig&
Application.ScreenUpdating = False
[F2] = "=AND(B2<>""A"",B2<>""B"")+(D2>DATEVALUE(""28/02/2022""))" 'critère
With [A1].CurrentRegion
    .AdvancedFilter xlFilterCopy, [F1:F2], [Z1] 'filtre avancé copié en Z1
    [F2] = ""
    Set P = [Z1].CurrentRegion
    nlig = P.Rows.Count
    P.Copy .Cells(1)
    P.Clear
    If .Rows.Count > nlig Then .Rows(nlig + 1 & ":" & .Rows.Count).Delete xlUp
End With
End Sub

Sub FiltreMG()
Dim P As Range, nlig&
Application.ScreenUpdating = False
[L2] = "=AND(D2<>""E233/084281/IANYM"",D2<>""E233/084281/IPHELECN4C"")+(J2>DATEVALUE(""28/02/2022""))" 'critère
With [A1].CurrentRegion
    .AdvancedFilter xlFilterCopy, [L1:L2], [Z1] 'filtre avancé copié en Z1
    [L2] = ""
    Set P = [Z1].CurrentRegion
    nlig = P.Rows.Count
    P.Copy .Cells(1)
    P.Clear
    If .Rows.Count > nlig Then .Rows(nlig + 1 & ":" & .Rows.Count).Delete xlUp
End With
End Sub