Aide Macro ajout de séries de données pour graphique

[A1B2C3]

Bonjour,

J'ai élaboré une petite macro afin de créer un graphique pour une série de données. Je voudrais désormais que la macro permette une boucle afin de chercher les autres séries de données jusqu'à la dernière colonne remplie.
-Le nom de la série en F1 doit se décaler pour chaque nouvelle série (E1,F1,G1...n1)
-Les valeurs en abscisse (XValues) aussi (F3:F1000 pour la 1ère série, E3:E1000 pour la deuxième...)
-L'ordonnée de change pas (B3:B1000 reste identique et commun à toutes les séries).

Pourriez-vous donc m'aider à compléter cette macro afin de réaliser ceci en déformant le moins possible ce que j'ai fait (même si ce n'est pas parfait). J'ai inclus les 'commentaires étape par étape car je débute dans les macros.

Voici la macro, merci par avance pour votre aide.

Sub Macro1()
' Macro1 Macro
'Ajouter un graphique
ActiveSheet.Shapes.AddChart.Select
'Graphique a nuage de points avec lignes
With ActiveChart
.ChartType = xlXYScatterLines
'Ajout de série
.SeriesCollection.NewSeries
'Nom de la série
.SeriesCollection(1).Name = "='Aller'!$F$1"
'Valeurs en abcisses
.SeriesCollection(1).XValues = "='Aller'!$F$3:$F$1000"
'Valeurs en ordonnées
.SeriesCollection(1).Values = "='Aller'!$B$3:$B$1000"
'Suppression de la légende
.Legend.Select
With ActiveLegend
Selection.Delete
End With
'Suppression du titre
.ChartTitle.Select
With ActiveChartTitle
Selection.Delete
End With
'Définition du style de lignes
.SeriesCollection(1).Select
With Selection
.MarkerStyle = 2
.MarkerSize = 7
End With
Selection.MarkerStyle = -4142
'Définition de la couleur de la ligne
.SeriesCollection(1).Select
Selection.Border.ColorIndex = 16
End With
End Sub