Sub test()
Dim i&
Application.ScreenUpdating = False
For i = 15 To Range("A65536").End(xlUp).Row Step 14
With Sheets("Feuil1")
.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Copy
.Range("I" & i).Select
.Paste
End With
With ActiveChart
.SeriesCollection(1).Values = "='Feuil1'!" & Range("C" & i + 1 & ":C" & i + 12).Address
.SeriesCollection(1).Name = Cells(i, 2).Value
.SeriesCollection(2).Values = "='Feuil1'!" & Range("D" & i + 1 & ":D" & i + 12).Address
.SeriesCollection(2).Name = Cells(i, 3).Value
.SeriesCollection(3).Values = "='Feuil1'!" & Range("E" & i + 1 & ":E" & i + 12).Address
.SeriesCollection(3).Name = Cells(i, 4).Value
.SeriesCollection(4).Values = "='Feuil1'!" & Range("F" & i + 1 & ":F" & i + 12).Address
.SeriesCollection(4).Name = Cells(i, 5).Value
.SeriesCollection(4).Values = "='Feuil1'!" & Range("G" & i + 1 & ":G" & i + 12).Address
.SeriesCollection(5).Name = Cells(i, 6).Value
.ChartTitle.Text = Cells(i + 1, 1).Value
End With
Next i
Application.ScreenUpdating = True
End Sub