Charts.Add
ActiveChart.ChartType = xl3DBarClustered
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = '=AK12345E!R1C1;AK58087C!R1C1'
ActiveChart.SeriesCollection(1).Values = '=AK12345E!R17C20;AK58087C!R17C20'
ActiveChart.SeriesCollection(1).Name = '=Témoin!R2C20'
ActiveChart.SeriesCollection(2).Values = '=AK12345E!R19C12;AK58087C!R19C12'
ActiveChart.SeriesCollection(2).Name = '=Témoin!R3C11'
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:='Comparatif HdV'
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = 'Activité aéronautique'
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlSeries)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
ActiveChart.WallsAndGridlines2D = False
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom
ActiveChart.HasDataTable = False