Sub Macro21()
Sheets("MATRICE21").Activate
Columns("A:G").Select
Selection.Delete Shift:=xlToLeft
Sheets("MATRICE1").Activate
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Sheets("MATRICE1").Range("A1").CurrentRegion).CreatePivotTable TableDestination:= _
"[Coûtsemaine2.xls]Matrice21!R1C1", TableName:="Tableau croisé dynamique4", _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddFields RowFields:= _
"Semaine", PageFields:="Niv 1"
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Coût"). _
Orientation = xlDataField
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Visible = False
Range("A5").Select
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Matrice21").Range("B6")
ActiveChart.Location Where:=xlLocationAsNewSheet
End Sub