ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"baseannulpr!R1C1:R1000C16", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="tcd!R1C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion14
Sheets("tcd").Activate
Cells(1, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("SOUS CAT")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields[B]("2014"), "2014[/B]" _
, xlSum