Source valeur série chart

Bonjour à tous, tout d'abord un grand merci pour tous vos partages sur ce forum ! Il est vraiment génial, une mine d'information !

Je viens vers vous car je tourne un peu en bourrique depuis un certain nombre de temps et si vous aviez quelques conseils à ce propos je vous en serais très reconnaissant !

L'objectif c'est de créer un graphique dans lequel je peux montrer ou cacher des courbes grâce à des checkbox. Les données sont dans une autre feuille, appelée (tableau_tampon).

Tout marche, sauf lorsque j'essai de selectionner les cellules avec la fontion range(cells(,), cells(,)).value...

Sans plus attendre, voici le code :

Dim Grf As ChartObject
Dim Sh As Worksheet
Dim series_compteur As Integer
series_compteur = 1

Set Sh = Sheets("courbes analyses")
Set Sh2 = Sheets("tableau_tampon")

'On crée notre graphique
Set Grf = Sh.ChartObjects.Add(250, 45, 1100, 400)
Grf.Name = "Courbes"

With Grf.Chart

' permet de savoir jusqu'où sélectionner les valeurs
Dim derligne As Long
derligne = Sh2.Range("A" & Rows.Count).End(xlUp).Row

 .ChartType = xlLineMarkers

' si on selectionne cette checkbox
    If CheckBox_pH_eau_forage = True Then

'alors on ajoute une nouvelle série
    .SeriesCollection.NewSeries

    With .SeriesCollection(series_compteur)

' et là... c'est le drame 1004
       .Values = Sh2.Range(Cells(9, 10), Cells(derligne, 10))
       .XValues = Sh2.Range(Cells(8, 1), Cells(derligne, 1))
       .Name = "pH eau forage"

' Par contre quand je fais range("XX:XX") là ça marche impecc, alors doit y'avoir un blèm dans mon écriture...

    End With
    series_compteur = series_compteur + 1
    End If

End With

Set Grf = Nothing
Set Sh = Nothing

Si vous pouviez éclairer ma lanterne... !

Erf et bien au moment ou je me décide à vous poster un message sur le fofo, j'ai trouvé... !

Donc pour ceux que ça intéresse, j'ai résolu mon problème tel que :

.Values = sh2.Range(sh2.Cells(9, 10), sh2.Cells(derligne, 10)).Value

Merci !