Sub DispGraph()
Application.ScreenUpdating=False
Dim nblignes as Integer
nblignes = 2
Sheets(1).select
While cells(nblignes,21)<>""
nblignes=nblignes+1
Wend
Sheets(1).Range(Cells(2,21),cells(nblignes-1,24)).Select
ActiveSheet.Shapes.Addchart(201,xlLine).Select
ActiveChart.SetSourceData Source:=Sheets(1).Range(Cells(2,21),cells(nblignes-1,24)) ActiveChart.PlotBy = xlColumns
ActiveChartTitle = "PROFIL EN LONG VOIE E"
ActiveChart.FullSeriesCollection(1).Select
With Selection.Format.Fill
.ForeColor.RGB = (320,50,0)
End With
ActiveChart.FullSeriesCollection(2).Select
With Selection.Format.Fill
.ForeColor.RGB = (0,100,255)
End With
ActiveChart.FullSeriesCollection(3).Select
With Selection.Format.Fill
.ForeColor.RGB = (20,255,0)
End With
Application.ScreenUpdating=False
End Sub