Encore moi....
Workbooks("Test.xlsm").PivotCaches.Add(SourceType:=xlDatabase, SourceData:=[Data!A2].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable TableDestination:="TCD!R2C1", TableName:="TCD1"
With Worksheets("TCD").PivotTables("TCD1")
.AddFields RowFields:="Fonds de...