Option Explicit
Sub test()
'déclaration de la variable
Dim i As Integer
'boucle à partir de la dernière ligne de la colonne A dont la cellule
'est non vide, jusqu'à la ligne 5, step -1 signifie que l'on remonte
For i = Range("A65536").End(xlUp).Row To 5 Step -1
'si la cellule de la ligne X (représentée par la variable i), colonne 1
'est vide la ligne est masquée
If IsEmpty(Cells(i, 1)) Then Rows(i).Hidden = True
Next i
'boucle sur tous les TCD sauf le 1er
For i = Feuil1.PivotTables.Count To 2 Step -1
'crée un bloc d'instruction, pour execution sur la plage du TCD
With Feuil1.PivotTables(i).TableRange2
'split décompose la chaine de caractères permettant de déterminer
'la 1ère ligne du TCD. -1 pour afficher celle du dessus.
If Rows(Split(Split(.Address, ":")(0), "$")(2) - 1).Hidden Then _
Rows(Split(Split(.Address, ":")(0), "$")(2) - 1).Hidden = False
End With
Next i
End Sub