'---suppression de lignes---
ReDim a(1 To PivotTables.Count, 1 To 2)
For i = 1 To UBound(a)
a(i, 1) = PivotTables(i).TableRange1.Row
a(i, 2) = PivotTables(i).TableRange1.Rows.Count 'hauteur du TCD
Next
For i = 1 To UBound(a) - 1
j = Application.Large(Application.Index(a, , 1), i + 1)
j = j + Application.VLookup(j, a, 2, 0) + espace
Rows(j & ":" & Application.Large(Application.Index(a, , 1), i) - 1).Delete
Next