Dim Plage as range
set Plage = Sheets("Tableauintermédiairegraphique").Range(Cells(1, j), Cells(ligne3 - 1, j + 3))
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Plage, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:= _
"Tableauintermédiairegraphique"