VBA Nuage de points

Bonjour,

J'aurai besoin d'aide pour peaufiner mon code. J'ai un tableau avec trois colonnes (A,B,C) et 20 lignes, et un bouton qui génère les tableaux lorsque les lignes sont colorés.
C'est avec le nuage de points que je rencontre des problèmes, il part du principe qu'il n'y a qu'une seule série alors que j'aimerai que chaque ligne soit distincte et qu'il y ait un point qui correspond à chaque noms.
La question est donc comment je peux lui indiquer de créer plusieurs séries et intégrant la colonne A comme noms de la série, colonne B (données ici) en axe Y et Age en axe X?

Ci-dessous mon code :

Dim Donnees() As Single
Dim Noms() As String
Dim Age() As Single

For i = 6 To 26
    ThisWorkbook.Worksheets("Tableaux").Activate
    If ThisWorkbook.Worksheets("Tableaux").Cells(i, 1).Interior.Color <> RGB(255, 255, 255) Then
         ReDim Preserve Noms(i - 5)
        Noms(i - 5) = ThisWorkbook.Worksheets("Tableaux").Cells(i, 1).Value
        

        If Table.OptionButton1.Value = True Then
             ReDim Preserve Donnees(i - 5)
             ReDim Preserve Age(i - 5)
            Donnees(i - 5) = ThisWorkbook.Worksheets("Tableaux").Cells(i, 1).Offset(0, 2)
            Age(i - 5) = ThisWorkbook.Worksheets("Tableaux").Cells(i, 1).Offset(0, 1)
        End If
    End If
Next i


Dim Chartobj As ChartObject

If Table.OptionButton1.Value = True Then
    
    Set Chartobj = ActiveSheet.ChartObjects.Add(Left:=20, Width:=300, Top:=20, Height:=200)
     Chartobj.Chart.ChartType = xlXYScatter
    With Chartobj.Chart.SeriesCollection.NewSeries
                .XValues = Donnees()
                .Values = Age()
                
                
    End With
                    
End If

Je vous remercie par avance pour votre aide.

bien cordialement,

EDIT: Ajout de la coloration syntaxique.