Inversion des axes nuage de point VBA

Bonjour, je créer un nuage de point à partir d'une macro mais je n'arrive pas à fixer quelle donnée doit être en abscisses.

Je me sers de cette macro,

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

Je souhaiterai avoir la colonne B en abscisses. Si quelqu'un à la solution pour m'éclairez. Ce n'est peut être pas la bonne solution pour créer le graph, c'est un modèle de macro enregister que j'ai ensuite adapté et simplifier.

Merci d'avance

Bonjour

En permutant les données X et Y dans la base de données

Cdlt