Set MaFeuille = ActiveWorkbook.Sheets("Feuil1")
MaFeuille.Activate
With MaFeuille
Set PlageData = .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 16)
Set PlageNom = .Range(.Cells(1, 1), .Cells(1, 1).End(xlToRight))
End With
For i = 1 To Cells(1, 2).End(xlToRight).Column - 1 Step 3
Set MonGraphe = ActiveWorkbook.Charts.Add
MonGraphe.ChartArea.Clear
MonGraphe.ChartType = xlColumnClustered
'MonGraphe.ChartType = xlXYScatterLines
Set PlageX = PlageData.Columns(1)
For compteur = 1 To 3
Set PlageY = PlageData.Columns(compteur + i)
Set MaSerie = MonGraphe.SeriesCollection.NewSeries
With MaSerie
.Values = PlageY
.XValues = PlageX
.Name = PlageNom.Cells(1, 1).Offset(, compteur + i - 1)
End With
Next compteur
ActiveChart.PlotArea.Select
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom
Next i