La méthode Select sur les datalabels

Voilà j'ai un code que j'ai fait avec l'enregistreur de macro et
que j'arrive pas à remettre dans mon prog ...
Il veut pas me faire les instructions qui se termine par Select comme si l'objet était pas le bon ....
C'est surement un truc tt con mais je trouve pas dans la doc que j'ai et dans l'aide d'excel. Merci d'avance ...

code à moi :
Set CurrentGraph = CurrentWorkbook.Worksheets(1).ChartObjects(thecell.Offset(ligneOffset, indexniv - 1).Value - 1)
CurrentGraph.Select
CurrentGraph.SeriesCollection.Add Source:=thecell.Offset(ligneOffset, indexsal - 1)
CurrentGraph.SeriesCollection(CurrentGraph.SeriesCollection.Count).XValues = thecell.Offset(ligneOffset, indexage - 1)
ActiveChart.SeriesCollection(CurrentGraph.SeriesCollection.Count).Select
toto = CurrentGraph.SeriesCollection.Count
CurrentGraph.SeriesCollection(CurrentGraph.SeriesCollection.Count).DataLabels.Select
'CurrentWorkbook.Worksheets(1).ChartObjects(thecell.Offset(ligneOffset, indexniv - 1).Value - 1).DataLabels.Select
CurrentGraph.SeriesCollection(CurrentGraph.SeriesCollection.Count).Points(1).DataLabel.Select

code de l'enregistreur de macro :

ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(11).Select
ActiveChart.SeriesCollection(11).ApplyDataLabels Type:=xlDataLabelsShowLabel _
, AutoText:=True, LegendKey:=False
ActiveChart.SeriesCollection(11).DataLabels.Select
ActiveChart.SeriesCollection(11).Points(1).DataLabel.Select
Selection.Characters.Text = "oh"
Selection.AutoScaleFont = False