Sub macrotcd()
Sheets.Add
ActiveSheet.Name = "tcd"
Sheets("base").Select
ActiveWorkbook.Worksheets("tcdcible").PivotTables("Tableau croisé dynamique2"). _
PivotCache.CreatePivotTable TableDestination:="tcd!R2C1", TableName:= _
"Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10
Sheets("tcd").Select
Cells(2, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("nom")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("prenom")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("salaire"), _
"Somme de salaire", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("prix"), "Somme de prix", _
xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique2").DataPivotField
.Orientation = xlColumnField
.Position = 1
End With
End Sub