Thanks Tom,

You helped me a lot. That's indeed all it took :

.SeriesCollection.NewSeries
.SeriesCollection(2).XValues = "={0,365}"
.SeriesCollection(2).Values = "={0," & S & "}"
where S is the last point's value.

Sometimes it is so simple that it is overlooked.