...
End If
Range(Cells(7, Colone), Cells(Derniere_Ligne, Colone)).Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
[COLOR="SeaGreen"]' ActiveChart.SetSourceData Source:=Worksheets("DQP (3)").Range(Cells(7, Colone), Cells(Derniere_Ligne, Colone)), PlotBy:=xlColumns
'ActiveChart.SeriesCollection(1).XValues = "='DQP (3)'!R7C2:R10C2"[/COLOR]
ActiveChart.Location Where:=xlLocationAsObject, Name:="DQP (3)"
[COLOR="SeaGreen"] ' xlLocationAsObject[/COLOR]
With ActiveChart