Dim pvt As PivotTable
For Each pvt In sh.PivotTables
pvt.TableRange1.Select
Dim zone As Range
Set zone = Selection
With zone
.Copy
End With
ActiveSheet.Cells(40, 1).PasteSpecial Paste:=xlPasteFormats 'là où vous voulez
Dim zone2 As Range
Set zone2 = Selection
'étape 1 les valeurs
zone.Copy
zone.PasteSpecial Paste:=xlPasteValues
'étape 2 les formats
zone2.Copy
zone.PasteSpecial Paste:=xlPasteFormats
zone2.Clear
Next pvt