c = ActiveSheet.UsedRange.Rows.Count
d = ActiveSheet.UsedRange.Columns.Count
temp.Range("A1").CurrentRegion.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"temp!R1C1:R" & c & "C" & d).CreatePivotTable TableDestination:= _
"'[Macro pour fichier mensuel.xls]pivot'!R1C1", TableName:="tableauws", _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("PivotTableX").AddFields RowFields:="Cgar2_2", _
ColumnFields:="BM", PageFields:=Array("LOB", "PROD", "CGAR", "FAMI", "EP99C", _
"ANTCOU", "POT", "P250000", "P25000", "GROSVAR", "AMPL", "CPOTM1", "CPOT" _
, "MOISSUR", "ANNSURV", "CGAR2")