Sub compterNombreLignesTCD()
Dim Pvt As PivotTable
'Définit le TCD
Set Pvt = Worksheets("Feuil1" ).PivotTables("Tableau croisé dynamique1" )
'TableRange1:
'plage contenant l'intégralité du rapport de tableau croisé dynamique,
'à l'exclusion des champs de page.
MsgBox Pvt.TableRange1.Rows.Count
'TableRange2 :
'plage contenant l'intégralité du rapport de tableau croisé dynamique,
'y compris les champs de page.
MsgBox Pvt.TableRange2.Rows.Count
End Sub