Création de courbe VBA

Bonjour,

J'essaye de créer une courbe supplémentaire sur un graphique. Le code fonctionne correctement, mais au lieu de n'avoir que 2 points que je désire, j'obtiens systématiquement un point [0;0] qui m'embête. Est-ce que quelqu'un aurait une idée de comment je pourrais n'obtenir qu'une courbe avec mes points nommés dans le code [Xc,Yc] et [Xb,Yb] svp?

Voici le code:

Sub Traj_outil_Click()
Dim ligne As Integer
Dim Tableau(2) As Integer, Tableau2(2) As Integer

'cliquer sur une case de ligne dont on veut avoir l'orientation outil pour obtenir la courbe des points milieux de celui-ci

ligne = ActiveCell.Row

If (ligne = 106 Or ligne < 6) Then
    Cells(6, 12).Activate
Else
    Cells(ligne, 12).Activate
End If

ligne = ActiveCell.Row

Set Xc = Cells(ligne, 12)
Set Yc = Cells(ligne, 13)
Set Xb = Cells(ligne, 14)
Set Yb = Cells(ligne, 15)

'Création du tableau pour les Abscisses

        Tableau(1) = Xc
        Tableau(2) = Xb

'Création d'un tableau pour les Ordonnées

        Tableau2(1) = Yc
        Tableau2(2) = Yb

'sélectionner la courbe pour ajouter la courbe de l'outil'

ActiveSheet.ChartObjects("Graphique 1").Activate

With ActiveChart
        .SeriesCollection(4).XValues = Tableau() 'Abscisses
        .SeriesCollection(4).Values = Tableau2() 'Ordonnées
End With

' incrémentation de la ligne à prendre en considération pour les coordonnées

ligne = ligne + 1
Cells(ligne, 12).Activate
End Sub