Suppression de lignes vide a intégrer dans une macro

On Error Resume Next
    
   Range("A3:A20000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
 

Sub SupprimeLigne()
Nlig = Cells(Rows.Count, 1).End(xlUp).Row
    On Error Resume Next
      With Range("A3:A" & Nlig)
         .SpecialCells(4).EntireRow.Delete
         '.SpecialCells(4).EntireRow.Select
      End With
    On Error GoTo 0
End Sub

Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci  proposé (clic droit) dans le message de réponse
Dans l’attente

Sub Supprime()
Application.ScreenUpdating = False
Nlig = Cells(Rows.Count, 1).End(xlUp).Row
   For L = Nlig To 3 Step -1
      If Range("A" & L).Value2 = "" Then Rows(L).Delete
   Next
MsgBox "Terminer"
End Sub

Sub Sup_zero()
Dim i%

For i = Range("A20000").End(xlUp).Row To 1 Step -1
    If Not InStr(1, LCase(Cells(i, 1).Value), "0") = 0 Then
        Rows(i).Delete
    End If
    
Next i
End Sub

Option Explicit
'---------------------------------------------
Sub affiner()
Dim Derlig As Integer, T_brut, Nbre As Integer, T_fin
Dim Lig As Integer, Cptr As Integer, Col As Byte
Dim start As Single

'--------------------------------initialisations
    Application.ScreenUpdating = False
    start = Timer
    With Sheets("RECAP QUAI TPS")
        'mémorisation en RAM de recap quai
        Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
        T_brut = .Range("A3:AI" & Derlig)
        'taille variable-tableau final
        Nbre = Application.CountIf(.Columns("A"), ">" & 0)
        ReDim T_fin(1 To Nbre, 1 To 35)

'--------------------------------traitement
        For Lig = 1 To UBound(T_brut)
            If T_brut(Lig, 1) <> "" Then
                Cptr = Cptr + 1
                'remplissage tableau fin
                For Col = 1 To 35
                    T_fin(Cptr, Col) = T_brut(Lig, Col)
                Next
                'sortie si on a atteint le nombre de dates en colonne A
                If Cptr = Nbre Then Exit For
            End If
        Next

'--------------------------restitution tableau affiné
    'rendu essai à supprimer après validation de la procédure
    With Sheets("essai")
        .Range("A3").Resize(Nbre, 35) = T_fin
        .Range("A3:AI" & Nbre + 3).Borders.Weight = xlThin
    End With
    ' rendu final
        '.Range("A3:AI" & Derlig).Clear
        '.Range("A3").Resize(Nbre, 35) = T_fin
        '.Range("A3:AI" & Nbre + 3).Borders.Weight = xlThin
    End With
    
    Application.ScreenUpdating = True
    MsgBox "traitement effectué en: " & Timer - start & " sec."
End Sub