XL 2013 Supprimer ligne

  t = Timer()
  Application.ScreenUpdating = False
  a = Range("A2:A" & [A65000].End(xlUp).Row)
  For i = LBound(a) To UBound(a)
    If a(i, 1) = "xxxx" Then a(i, 1) = 0 Else a(i, 1) = "sup"
  Next i
  Columns("b:b").Insert Shift:=xlToRight
  [B2].Resize(UBound(a)) = a
  [A2].CurrentRegion.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess
  On Error Resume Next
  Range("B2:B65000").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
  Columns("b:b").Delete Shift:=xlToLeft
  MsgBox Timer() - t
End Sub

Sub SupprimerLignes()
Dim crit, ligdeb&, P As Range
crit = 2019 'à adapter (nombre ou texte)
ligdeb = 5 '1ère ligne à traiter
With ActiveSheet 'à adapter
    Set P = Intersect(.Rows(ligdeb & ":" & .Rows.Count), .UsedRange.EntireRow)
End With
Application.ScreenUpdating = False
ThisWorkbook.Names.Add "Critere", crit 'nom défini
P(1).EntireColumn.Insert
P.Columns(1) = "=1/(RC[12]=Critere)" 'si recherche exacte
'P.Columns(1) = "=1/ISNUMBER(SEARCH(Critere,RC[12]))" 'si recherche partielle
P.Columns(1) = P.Columns(1).Value 'supprime les formules
P.Sort Columns(1) 'tri pour regrouper et accélérer
On Error Resume Next 'si aucune SpecialCell
P.Columns(1).SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
P(1).EntireColumn.Delete
End Sub

Sub supLignesRapide2()
  Application.ScreenUpdating = False
  a = Range("L2:L" & [L1000000].End(xlUp).Row)
  For i = LBound(a) To UBound(a)
    If a(i, 1) = 2019 Then a(i, 1) = 0 Else a(i, 1) = "sup"
  Next i
  Columns("b:b").Insert Shift:=xlToRight
  [B2].Resize(UBound(a)) = a
  [A2].CurrentRegion.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess
  On Error Resume Next
  Range("B2:B1000000").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
  Columns("b:b").Delete Shift:=xlToLeft
End Sub