Ajouter une série de données à mon graphe

Bonjour à tous,

J'utilise le code suivant pour générer un graphique par rapport aux colonnes A (abscisses)et B (ordonnées) de ma feuilles "donnees".

Ce code fonctionne très bien pour une série !

Ma question est :

Comment fait ton si je veux rajouter une ou deux série supplémentaires avec pour chacune leur propre abcsisse

Ex: série 1 abscisse colonne A, ordonnée colonne B

série 2 abscisse colonne C, ordonnée colonne D

série 3 abscisse colonne E, ordonnée colonne F

Merci par avance pour votre aide

Sub LeGraphique()

Dim MonGraphe As Chart, MaFeuille As Worksheet, PlageDonnees As Range
Dim PlageX As Range, PlageY As Range, MaSerie As Series, compteur As Long

Sheets("Donnees").Select
Set MaFeuille = ThisWorkbook.Worksheets("Donnees")
With MaFeuille
     Set PlageDonnees = .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(Range("max"), 2)
     PlageDonnees.Select
End With

Set MonGraphe = ThisWorkbook.Charts.Add
MonGraphe.Name = "Graphique"
MonGraphe.ChartArea.Clear
MonGraphe.ChartType = xlXYScatterSmoothNoMarkers

PlageDonnees.Copy
MonGraphe.SeriesCollection.Paste Rowcol:=xlColumns, SeriesLabels:=True, CategoryLabels:=True, Replace:=False, NewSeries:=True

End Sub

Bonsoir,

Un petite fichier svp, c'est du possible

Cdlt