Eviter ligne vide

Option Explicit
Sub Ligne_masquer_si_vide()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
        If Range("a" & i) = "" Then Rows(i).EntireRow.Hidden = True
    Next i
    Application.ScreenUpdating = True
End Sub

Option Explicit
Sub Ligne_masquer_si_résultat_formule_égale_zéro()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
        If Range("a" & i).HasFormula And Range("a" & i) = "" Then Rows(i).EntireRow.Hidden = True
    Next i
    Application.ScreenUpdating = True
End Sub