suite1:
n = 0 'RAZ, c'est essentiel
For i = 5 To [E65536].End(xlUp).Row
If IsDate(Cells(i, "E")) Then
ReDim Preserve x(n)
ReDim Preserve y(n)
x(n) = Cells(i, "E").Text 'si l'on veut du texte
'x(n) = Cells(i, "E").Value2 'si l'on veut le nombre
y(n) = Cells(i, xx)
n = n + 1
End If
Next
'---noms définis---
ThisWorkbook.Names.Add "X", x
ThisWorkbook.Names.Add "Y_" & Replace(nom, " ", "_"), y
'---Définition de la série---
'(côte à gauche, côte en haut, largeur, hauteur
Set cht = ActiveSheet.ChartObjects.Add(0, ch, 1000, 400)
With cht.Chart
Set ser = .SeriesCollection.NewSeries
With ser
.Name = nom
.XValues = "='" & ThisWorkbook.Name & "'! X"
.Values = "='" & ThisWorkbook.Name & "'!Y_" & Replace(nom, " ", "_")
End With