Option Explicit
Option Base 1
Sub essai()
Dim T As Variant
Dim Cpt As Long
Dim Tabsc() As Variant
Dim Tordo() As Variant
' ----------------- Ceci sera ailleurs ; c'est le remplissage du tableau variant avec les valeurs à mettre dans le graphique
T = Range("A1:B10").Value
' ---------------- Création des deux tableaux
ReDim Tabsc(UBound(T, 1))
ReDim Tordo(UBound(T, 1))
For Cpt = 1 To UBound(T, 1)
Tabsc(Cpt) = T(Cpt, 1)
Tordo(Cpt) = T(Cpt, 2)
Next Cpt
' ---------------- Passage des deux tableaux dans le graphique (ici "Graphique1")
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).XValues = Tabsc
ActiveChart.SeriesCollection(1).Values = Tordo
End Sub