XL 2019 Excel 2019 VBA macro masquer lignes et colonnes vides

If Application.CountIf(r, "><") + Application.CountIf(r, ">0") + Application.CountIf(r, "<0") = 0 Then r.Hidden = True

Sub Masquer()
Dim P As Range, a(), i&, r As Range
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
Rows.Hidden = False
Columns.Hidden = False
Set P = ActiveSheet.UsedRange
'---lignes---
ReDim a(1 To P.Rows.Count, 1 To 1) 'matrice, plus rapide
For i = 1 To UBound(a)
    Set r = P.Rows(i)
    a(i, 1) = Application.CountIf(r, "><") + Application.CountIf(r, ">0") + Application.CountIf(r, "<0")
    If a(i, 1) = 0 Then a(i, 1) = "#N/A"
Next
With P.Columns(P.Columns.Count + 1) 'colonne auxiliaire suivant la dernière colonne
    .Value = a 'restitution
    .SpecialCells(xlCellTypeConstants, 16).EntireRow.Hidden = True 'masque en bloc
    .ClearContents 'efface la colonne auxiliaire
End With
'---colonnes---
ReDim a(1 To 1, 1 To P.Columns.Count) 'matrice, plus rapide
For i = 1 To UBound(a, 2)
    Set r = P.Columns(i)
    a(1, i) = Application.CountIf(r, "><") + Application.CountIf(r, ">0") + Application.CountIf(r, "<0")
    If a(1, i) = 0 Then a(1, i) = "#N/A"
Next
With P.Rows(P.Rows.Count + 1) 'ligne auxiliaire suivant la dernière ligne
    .Value = a 'restitution
    .SpecialCells(xlCellTypeConstants, 16).EntireColumn.Hidden = True 'masque en bloc
    .ClearContents 'efface la ligne auxiliaire
End With
End Sub

Set P = Intersect([3:183], ActiveSheet.UsedRange)

Rows("1:3").Hidden = False
Rows("184:" & Rows.Count).Hidden = False

Sub sauve_revision_periodique_pdf()
    Dim ArraySheet, chemin$, WbK As Workbook, F, Nom$, sh    'variables

    Application.ScreenUpdating = False    'bloque le rafraichissement d'écran

    ArraySheet = Array("Révision périodique", "Mesure pour client", "Plan", "lettre_rev_periodique")

   chemin = "\\Freebox_Server\serveur maison\Fichiers Maison\Kylian\VISION\CLIENTS\CONTROLE VOILES" & "/"

    Set sh = Sheets("Révision périodique")

    With sh
        Nom = .Range("C11") & " " & .Range("P11") & " - " & .Range("P7") & " - " & .Range("H17") & " - " & .Range("P17") & " - " & _
              .Range("W17") & " - " & .Range("C19") & " - " & .Range("c17") & " - " & .Range("c7").Value & " - " & _
              Format(Date, "dd.mm.yyyy") & ".pdf"
    End With


    Set WbK = Workbooks.Add    'on ajoute un classeur temporaire

    For Each F In ArraySheet  'boucle sur l'array et copie des feuille dans le nouveau classeur
        ThisWorkbook.Sheets(F).Copy after:=WbK.Sheets(WbK.Sheets.Count)
    Next

    Application.DisplayAlerts = False
    WbK.Sheets(1).Delete    'on supprime la feuil1 qui est créée automatiquement a la creation du classeur

    'on sauve en pdf
    WbK.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & Nom, Quality:=xlQualityStandard, _
                            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                            True
    'on ferme le classeur temporaire 'on ne le sauve pas
    WbK.Close False

End Sub

Sub Masquer_PDF()
Dim feuille, f As Worksheet, P As Range, a(), i&, r As Range
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
Set feuille = Sheets(Array("plan", "Mesure pour client"))
For Each f In feuille
    f.PageSetup.PrintArea = "A1:AJI189"
    f.Rows.Hidden = False
    f.Columns.Hidden = False
    Set P = f.UsedRange
    '---lignes---
    ReDim a(1 To P.Rows.Count, 1 To 1) 'matrice, plus rapide
    For i = 1 To UBound(a)
        Set r = P.Rows(i)
        a(i, 1) = Application.CountIf(r, "><") + Application.CountIf(r, ">0") + Application.CountIf(r, "<0")
        If a(i, 1) = 0 Then a(i, 1) = "#N/A"
    Next i
    With P.Columns(P.Columns.Count + 1) 'colonne auxiliaire suivant la dernière colonne
        .Value = a 'restitution
        .SpecialCells(xlCellTypeConstants, 16).EntireRow.Hidden = True 'masque en bloc
        .ClearContents 'efface la colonne auxiliaire
    End With
    f.Rows("1:3").Hidden = False
    f.Rows("184:" & f.Rows.Count).Hidden = False
    '---colonnes---
    ReDim a(1 To 1, 1 To P.Columns.Count) 'matrice, plus rapide
    For i = 1 To UBound(a, 2)
        Set r = P.Columns(i)
        a(1, i) = Application.CountIf(r, "><") + Application.CountIf(r, ">0") + Application.CountIf(r, "<0")
        If a(1, i) = 0 Then a(1, i) = "#N/A"
    Next i
    With P.Rows(P.Rows.Count + 1) 'ligne auxiliaire suivant la dernière ligne
        .Value = a 'restitution
        .SpecialCells(xlCellTypeConstants, 16).EntireColumn.Hidden = True 'masque en bloc
        .ClearContents 'efface la ligne auxiliaire
    End With
Next f
'---PDF---
feuille.Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Fichier PDF.pdf", OpenAfterPublish:=False
feuille(1).Select
End Sub