ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="BD"). _
CreatePivotTable TableDestination:="TCD!R2C1", TableName:= _
"TCD", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("TCD").AddFields RowFields:= _
Array("Opérateur", "Péage"), ColumnFields:="Date jour"
ActiveSheet.PivotTables("TCD").PivotFields("Qté globale") _
.Orientation = xlDataField