Creation d'une constante d'un graphique avec une seule valeur

Bonjour,

Je suis débutante en VBA et je cherche à automatiser la création de graphiques. Je bloque pour la création de constantes (du type y=valeur) avec une seule valeur (ex : y=135) etje ne peux pas rajouter de colonne en parallèle et baser la création d'une nouvelle série dessus. J'ai essayé ce code pour une des constantes mais cela ne marche pas, et "détruit" tout le graphique...

Sub creationgraphique()

Dim Workbook As Workbook
Dim feuille_datas As Worksheet
'graphique
Dim c As ChartObject, Titre As String

Set Workbook = ThisWorkbook
Set feuille_datas = Workbook.Worksheets.Item("Feuil2")

'definition titre
Titre = feuille_datas.Cells(1, 2)

'creation graphique
 Titre = Titre
  Set datas1 = feuille_datas.Range(feuille_datas.Cells(5, 2), feuille_datas.Cells(feuille_datas.UsedRange.Rows.Count, 2))

Nominal = "serie2"
Set Nominalt = feuille_datas.Range("B2")

 With feuille_datas
            Set c = feuille_datas.ChartObjects.Add(Left:=200, Width:=400, Top:=25, Height:=200)
  End With

   With c.Chart
            .HasTitle = True
            .HasLegend = False
            .ChartTitle.Caption = Titre
            .ChartType = xlLine
            .SetSourceData Source:=datas1

            .SeriesCollection.NewSeries
            .SeriesCollection(1).Name = Nominale
            .SeriesCollection(1).Values = Nominalt

  End With

End Sub

           

Une image de l'objectif est dans le fichier

Quelqu'un aurait-il une idée ou un conseil ? Merci d'avance