Problème de lenteur .

Sub SuppLigneVides()
ModeRecalcul = Application.Calculation
' Réglage du recalcul sur mode manuel
Application.Calculation = xlCalculationManual
    With ActiveSheet.UsedRange
    derLi = .Row + .Rows.Count - 1
    End With
    Application.ScreenUpdating = False
    For R = derLi To 1 Step -1
    If Application.CountA(Rows(R)) = 0 Then Rows(R).Delete
    Next R
Application.Calculation = ModeRecalcul
End Sub

Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete xlUp

Sub Supprimer_Lignes_Vides()
    
    'définition des variables
    Dim Compteur As Long, Compteur2 As Long, Compteur3 As Integer
    Dim Tab_Donnees As Variant, Tab_Donnees2 As Variant
    
    'désactivation de l'affichage écran pour gagner en rapidité
    Application.ScreenUpdating = False
    
    'désactivation du calcul automatique pour gagner en rapidité
    Application.Calculation = xlCalculationManual
    
    ReDim Tab_Donnees(1 To 65536, 1 To 256)
    Tab_Donnees2 = ActiveSheet.Cells.Value
    Compteur2 = 0
    
    For Compteur = 1 To ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row
        If Not Application.CountA(ActiveSheet.Rows(Compteur)) = 0 Then
            Compteur2 = Compteur2 + 1
            For Compteur3 = 1 To 256
                Tab_Donnees(Compteur2, Compteur3) = Tab_Donnees2(Compteur, Compteur3)
            Next Compteur3
        End If
    Next Compteur
    ActiveSheet.Cells.Value = Tab_Donnees
    
    'réactivation de l'affichage écran
    Application.ScreenUpdating = True
    
    'réactivation du calcul automatique
    Application.Calculation = xlCalculationAutomatic
    
End Sub