Selection de données graphique

Bonjour à tous,

Je cherche à sélectionner les données d'un graphique en fonction de son titre de colonne.

J'ai créé la macro suivante et les données me renvoie un (-3). Ou est mon erreur ?

Merci à vous

T_f = Cells.Find(what:="Multitalents M données").Activate

Bouge = Selection.Offset(1, 0).Select

S_Tout = Range(Selection, Selection.End(xlDown)).Select

Fds = T_f + Bouge + S_Tout

ActiveSheet.ChartObjects("graph").Activate

ActiveChart.ChartArea.Select

ActiveChart.SeriesCollection.NewSeries

ActiveChart.FullSeriesCollection(1).Values = Fds

Bonjour

A tester (mais je n'y comprend rien)

Ne fonctionne qu'a partir de 2013

Sub test2()
  T_f = Cells.Find(what:="Multitalents M données").Activate
  Bouge = Selection.Offset(1, 0).Select
  Set S_Tout = Range(Selection, Selection.End(xlDown))      '.Select
'  S_Tout = Range(Selection, Selection.End(xlDown)).Select

'  Fds = T_f + Bouge + S_Tout
    ActiveSheet.ChartObjects("graph").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(1).Values = S_Tout     'Fds
End Sub

super merci, c'est ce que je cherchais