VBA Graphique

Bonjour forum

j'ai réalisé ce code pour tracer une courbe. mais quand le nombre de données dépassent 32000 il coupe les données.

Est ce que vous avez une idée pour faire une graphe avec deux series

Dim appExcel As excel.Application
Dim wbExcel As excel.Workbook 'Classeur Excel
Dim wsExcel As excel.Worksheet 'Feuille Excel
Dim objChart As Chart, objRange As Range, MaSerie As Series
Dim chemin As String
Set appExcel = CreateObject("Excel.Application")
chemin = Text1.Text
Workbooks.OpenText FileName:=chemin, Origin:=xlWindows, _
StartRow:=2, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False, Space:=True, Other:=True, FieldInfo:=Array(1, 1) 'TrailingMinusNumbers:=True

Set objChart = Charts.Add
objChart.ChartType = xlXYScatterSmooth
objChart.Name = "toto"
objChart.HasLegend = True

Set MaSerie = objChart.SeriesCollection.NewSeries
MaSerie.Values = "=" & Worksheets(1).Range("F:F").Columns(1).Address(True, True, xlR1C5, True)

MinimumScale = " =Min(F:F)"
MaximumScale = "= Max(F:F)"

MaSerie.XValues = "=" & Worksheets(1).Range("E:E").Columns(1).Address(True, True, xlR1C6, True)

With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "allongement en fonction du temps"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "blabla"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "tata"
End With

Set appExcel = Nothing

merci d'avance