Dim objChart As Chart, A As Range
Range("A93", Range("D93").End(xlDown)).Select
i = Sheets("Résultat").Range("A93", Range("D93").End(xlDown)).Row
Set Plage = Sheets("Résultat").Range("A" & 93 & ":D" & i)
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Plage, PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Name = "Indice"
[COLOR="darkorange"]ActiveChart.SeriesCollection(1).XValues = Range("A93", Range("D93").End(xlDown))[/COLOR]
ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphique"