'---modification/création/suppression des séries---
With ChartObjects(1).Chart
s = .SeriesCollection.Count
For j = 1 To col
If j > s Then .SeriesCollection.NewSeries
.FullSeriesCollection(j).Name = col - j + 1
Je n'ai fait que suivre la numérotation des colonnes de votre fichier du post #1 : 20-19-18 etc...Je ne comprend pas trop les "tetes de colones" 6 - 5 - 4 etc - 1
'---largeur des colonnes (facultatif)---
For j = 4 To 255
If Range(Shapes(.Parent.Name).TopLeftCell.Offset(, 1), Columns(Columns.Count)).Width < 7 * rc Then _
deb(1, 3).Resize(, Columns.Count - deb.Column - 1).ColumnWidth = j Else Exit For
Next
'---largeur du graphique---
.Parent.Width = Application.Max(7 * rc, 370)