Utiliser valeurs autre feuille avec lngCount

Bonjour,

j'aimerai utiliser les valeurs d'une feuille sélectionnée avec un lngCount et les insérer dans un graphique mais je n'arrive pas à utiliser le selecteditems(lngCount) pour les obtenir. Erreur d'indice...

Voilà mon code :

Dim x As String
x = .SelectedItems(lngCount)

ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(lngCount).Name = "=""(" & CStr(x) & ")"""
ActiveChart.SeriesCollection(lngCount).XValues = _
Workbooks("=""(" & CStr(x) & ")""").Worksheets("=""(" & CStr(x) & ")""").Range("A5:A10000")
ActiveChart.SeriesCollection(lngCount).Values = _
Workbooks("=""(" & CStr(x) & ")""").Worksheets("=""(" & CStr(x) & ")""").Range("B5:B10000")
ActiveSheet.ChartObjects("Graphique 2").Activate

Merci d'avance !