Sub aa()
Dim S As Worksheet
Dim i&
Dim Ligne&
'---
Set S = Sheets("Base PDF")
Ligne& = 1
For i& = 1 To 4
With Sheets(i&).PivotTables(1)
IIf(i = 1, .TableRange2, .TableRange1).Copy
End With
S.Paste S.Cells(Ligne&, 1)
Ligne& = S.UsedRange.Rows.Count + 2
Next i&
Application.CutCopyMode = False
End Sub