Sub makeGraph()
'on crée le graphe
With ActiveSheet.ChartObjects.Add _
(Left:=100, Width:=375, Top:=75, Height:=225)
.Chart.ChartType = xlXYScatterLines
'on supprime les potentielles séries déjà présente
Do Until .Chart.SeriesCollection.Count = 0
.Chart.SeriesCollection(1).Delete
Loop
'on crée notre série
.Chart.SeriesCollection.NewSeries
'on ajoute les paramètres de la série
.Chart.SeriesCollection(1).XValues = Array(CDate("24/06/2012"), CDate("27/06/2012"))
.Chart.SeriesCollection(1).Values = Array(1, 2)
.Chart.SeriesCollection(1).Name = "Première série"
End With
End Sub