Ajout auto de séries sur un graphique

Bonjour à tous,

Je souhaiterais créer une macro qui ajoute automatiquement les données sur un graphique, tout en conservant les données "Réf." en série 1 (dernière ligne).

J'ai un embryon de code mais je n'arrive à le faire fonctionner :

Sub Ajout_des_series()

Dim nb_de_series%
Dim i%, n%, sc As Series

nb_de_series = WorksheetFunction.CountA(Columns("B:B")) - 1

    For n = 2 To nb_de_series
        Set sc = Worksheets("Feuil1").ChartObjects("Graphique 1").Chart.SeriesCollection(n)

'        With sc

        For i = 3 To 12

            ActiveSheet.ChartObjects("Graphique 1").Activate
            ActiveChart.Axes(xlValue).MajorGridlines.Select
            ActiveChart.SeriesCollection.NewSeries
            ActiveChart.SeriesCollection(sc).Name = Cells(i, 2)
            ActiveChart.SeriesCollection(sc).Values = Range(Cells(i, 3), Cells(i, 12))

        Next i

'        End With

    Next n
    Set sc = Nothing

End Sub

En PJ se trouve un fichier exemple, avec la macro en question...

J'aimerais utiliser le With sc mais je ne sais pas comment...

Pourriez-vous me venir en aide svp ?

Merci d'avance !

Svp je galère vraiment

Je me permets de remonter le sujet !

Peut-être est-ce la formulation de mon problème qui n'est pas bonne lol

Re-bonjour à tous !

Je retente ma chance aujourd'hui !

J'ai réessayé avec d'autres codes encore plus simples, du genre :

Sub Ajout_Series()

Dim sc As Series, i As Byte
    For i = 3 To 12
        Set sc = Worksheets("Feuil1").ChartObjects("Graphique 1").Chart.SeriesCollection(i)
        With sc
            .Name = Cells(i, 2)
            .Values = Range(Cells(i, 3), Cells(i, 12))
        End With
    Next i
    Set sc = Nothing

End Sub

Ou même en dimensionnant l'objet sc comme un Integer, mais cela ne fonctionne toujours pas...

SVP...