Dim memo(1 To 2, 1 To 2)
With Sheets("TCD1").PivotTables("Tableau croisé dynamique1")
memo(1, 1) = .ColumnGrand
memo(1, 2) = .RowGrand
.ColumnGrand = False
.RowGrand = False
End With
'Sheets("TCD2").Activate
With Sheets("TCD2").PivotTables("Tableau croisé dynamique2")
memo(2, 1) = .ColumnGrand
memo(2, 2) = .RowGrand
.ColumnGrand = False
.RowGrand = False
End With
' TCD consolidé
'...
'restaurer
With Sheets("TCD1").PivotTables("Tableau croisé dynamique1")
.ColumnGrand = memo(1, 1)
.RowGrand = memo(1, 2)
End With
With Sheets("TCD2").PivotTables("Tableau croisé dynamique2")
.ColumnGrand = memo(2, 1)
.RowGrand = memo(2, 2)
End With