Sub Creation_TCD()
ActiveWorkbook.Worksheets("TCD").PivotTables("Tableau croisé dynamique1"). _
PivotCache.CreatePivotTable TableDestination:= _
"[COMPTAGE_VALEURS_NUMERIQUES_ET_TEXTE2.xls]Data!R18C21", TableName:= _
"Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Visible = False
Columns("S:AC").Select
Selection.Delete Shift:=xlToLeft
Range("T9").Select
Range("R1").Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets("TCD").PivotTables("Tableau croisé dynamique1"). _
PivotCache.CreatePivotTable TableDestination:= _
"[COMPTAGE_VALEURS_NUMERIQUES_ET_TEXTE2.xls]Data!R1C21", TableName:= _
"Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("Tableau croisé dynamique3").AddFields RowFields:= _
"VENDEUR", ColumnFields:="AK"
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("AK"). _
Orientation = xlDataField
ActiveWorkbook.ShowPivotTableFieldList = True
End Sub