Sub graphique()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Values = _
"='Données graph " & moteur & "'!R8C" & ColDeb & ":R8C" & ColFin
ActiveChart.SeriesCollection(1).Name = _
"='Données graph " & moteur & "'!R8C1:R10C1"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).Values = _
"='Données graph " & moteur & "'!R11C" & ColDeb & ":R11C" & ColFin
ActiveChart.SeriesCollection(2).Name = _
"='Données graph " & moteur & "'!R11C1:R13C1"
ActiveChart.SeriesCollection(1).XValues = _
"='Données graph " & moteur & "'!R7C" & ColDeb & ":R7C" & ColFin
end sub