Excel 2019 VBA macro masquer lignes et colonnes vides

Bonjour, J'essaie de masquer toutes les colonnes et lignes vides de mon tableau sur excel 2019. Concernant les colonnes, j'ai trouvé une macro qui fonctionne mais j'aimerai que cette macro masque également les lignes vides. J'ai testé une deuxième macro pour les lignes vides mais cela ne fonctionne pas sur mon fichier. De plus j'aurai aimé n'avoir qu'une seule macro qui masque les lignes et les colonnes

Sub Masquer_colonnes()
Dim i As Integer
Dim Cel As Range
Dim Masquer As Boolean
    Application.ScreenUpdating = False
    Columns("A:GI").Columns.Hidden = False
    For i = 1 To 191
        Masquer = True
        For Each Cel In Cells(1, i).Resize(200).SpecialCells(xlCellTypeVisible)
            If Val(Cel.Value) > 0 Then
                Masquer = False
                Exit For
            End If
        Next Cel
        If Masquer Then Columns(i).Hidden = True
    Next i
    Application.ScreenUpdating = True
    
           
End Sub

Sub demasque_colonnes_lignes()
   Cells.EntireRow.Hidden = False
   Cells.EntireColumn.Hidden = False
End Sub

La 2ème macro (masquer lignes) qui ne fonctionne pas : 

Sub Cacher_lignevide()
Dim cellule As Range

Application.ScreenUpdating = False
With Sheets("plan")
    For Each cellule In .Range("A1:A90")
        If WorksheetFunction.CountA(.Range("a" & cellule.Row & ":Gi" & cellule.Row)) = 0 Then
        cellule.EntireRow.Hidden = True
        End If
    Next cellule
End With
Application.ScreenUpdating = True
End Sub

vides. Pouvez-vous m'aider ? Merci beaucoup.