Problème de création de feuille graphique pour un nuage de point en macro

Bonjour,

Je suis débutant en VBA

Mon souhait est de pouvoir à l'aide d'une macro de créer une feuille graphique pour y accueillir les nuages de points créer en même temps. J'ai réussi pour le moment à deux points près.

Mon premier problème est que le premier des graphique créer ne se comportent pas comme les autres, il affiche une série différentes pour toute les valeurs et les suivants non alors que le code est identique.

Mon deuxième problème est le choix des axes abscisses et ordonnées qui se fait de manière aléatoire et je n'arrive pas à les fixers.

Voici le code dont je me suis servi si quelqu'un pouvait me venir en aide.

Sub CreerGraphFeuil()

ThisWorkbook.Charts.Add After:=Worksheets("Données")
With ActiveChart

.ChartType = xlXYScatter
.SetSourceData Worksheets("Données").Range("Données!$B:$B,Données!$C:$C")
.Name = "trash"
End With

ThisWorkbook.Charts.Add After:=Worksheets("Données")
With ActiveChart

.ChartType = xlXYScatter
.SetSourceData Worksheets("Données").Range("Données!$B:$B,Données!$C:$C")
.Name = "effort par seconde"
End With

Et ainsi de suite