Sub graph()
'Creation graphique
With ActiveSheet.ChartObjects.Add(Left:=100, Width:=575, Top:=45, Height:=225)
.Chart.SetSourceData Source:=Sheets("Feuil2").Range("A:A,H:H")
.Chart.ChartType = xlXYScatterLines
.Chart.Legend.Select
Selection.Delete
ActiveChart.Location Where:=xlLocationAsObject, Name:="Chart"
End With
With ActiveSheet.ChartObjects.Add(Left:=100, Width:=575, Top:=300, Height:=225)
.Chart.SetSourceData Source:=Sheets("Feuil2").Range("A:A,M:M")
.Chart.ChartType = xlXYScatterLines
.Chart.Legend.Select
Selection.Delete
ActiveChart.Location Where:=xlLocationAsObject, Name:="Chart"
End With
With ActiveSheet.ChartObjects.Add(Left:=100, Width:=575, Top:=650, Height:=225)
.Chart.SetSourceData Source:=Sheets("Feuil2").Range("A:A,N:N")
.Chart.ChartType = xlXYScatterLines
.Chart.Legend.Select
Selection.Delete
ActiveChart.Location Where:=xlLocationAsObject, Name:="Chart"
End With
With ActiveSheet.ChartObjects.Add(Left:=100, Width:=575, Top:=900, Height:=225)
.Chart.SetSourceData Source:=Sheets("Feuil2").Range("A:A,M:M,O:O")
.Chart.ChartType = xlXYScatterLines
.Chart.Legend.Select
Selection.Delete
ActiveChart.Location Where:=xlLocationAsObject, Name:="Chart"
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub