peut tu donner un extrait de ton code ou de ta feulle excel à traiter stp, c'est trop flou... voici quand même un extrait d'un de mes code pour faire un graphique par série :
'mise en forme du tableau(moi j'ai besoin de modifier la forme du tableau avant de traiter la feuille Export)
m = n = o = 0
For i = 1 To nbligne
m = 4 * i - 2
ActiveSheet.Range('A' & m & ':C' & m).Select
Selection.Cut Destination:=ActiveSheet.Range('D' & i & ': F' & i)
n = 4 * i - 1
ActiveSheet.Range('A' & n & ':C' & n).Select
Selection.Cut Destination:=ActiveSheet.Range('G' & i & ': I' & i)
o = 4 * i
ActiveSheet.Range('A' & o & ':C' & o).Select
Selection.Cut Destination:=ActiveSheet.Range('J' & i & ': L' & i)
Next
ActiveSheet.Columns('A:C').Delete
ActiveSheet.Columns('A:I').EntireColumn.AutoFit
ActiveSheet.Columns('A:A').Select
Selection.NumberFormat = 'd/m/yy h:mm'
ActiveSheet.Columns('D
').Select
Selection.NumberFormat = 'd/m/yy h:mm'
ActiveSheet.Columns('G:G').Select
Selection.NumberFormat = 'd/m/yy h:mm'
ActiveSheet.Range('A1').Select
'création d 'un graphique lui même
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = '=Export!C1'
ActiveChart.SeriesCollection(1).Values = '=Export!C3'
ActiveChart.SeriesCollection(1).Name = '=Export!R1C2'
ActiveChart.SeriesCollection(2).XValues = '=Export!C4'
ActiveChart.SeriesCollection(2).Values = '=Export!C6'
ActiveChart.SeriesCollection(2).Name = '=Export!R1C5'
ActiveChart.SeriesCollection(3).XValues = '=Export!C7'
ActiveChart.SeriesCollection(3).Values = '=Export!C9'
ActiveChart.SeriesCollection(3).Name = '=Export!R1C8'
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:='%acquis_graph'
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = 'Evolution de l'acquisition en fonction du temps'
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = 'Dates'
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = 'Pourcentages'