Union(Range(Cells(1, 3), Cells(1, nbrecol)), Range(Cells(4, 3), Cells(4, nbrecol))).Select 'selectionne les cellules C1 à M1 et C4 à M4
'création du graphique
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets('Stats').Union(Range(Cells(1, 3), Cells(1, nbrecol)), Range(Cells(4, 3), Cells(4, nbrecol))), _
PlotBy:=xlRows
ActiveChart.SeriesCollection(1).Name = '=''Taux'''
ActiveChart.Location Where:=xlLocationAsObject, Name:='Stats'
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = 'graphique'
End With