Workbooks("NomDuClasseurExcel").Activate
Workbooks("Sheet1").Activate
sheets("sheet1").Select
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B10")
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.PlotArea.Select
Selection.Border.ColorIndex = 16
With Selection.Interior
.ColorIndex = 2
.PatternColorIndex = 1
End With
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SeriesCollection(3).Select
Selection.Interior.ColorIndex = 37
ActiveChart.SeriesCollection(2).Select
Selection.Interior.ColorIndex = 24