Pb récupération de la valeur d'un point dans un graphique

Bonjour,


Je souhaite récupérer certaines valeur dans un graphique nommé "Graphique L14" de type histogramme; pour cela, j'utilise la sub suivante:

Sub pointsGraph()
Dim Valeur As Single

With Sheets("Feuil1").ChartObjects("Graphique L14").Chart.SeriesCollection(1).Points(2)
.HasDataLabel = True 'affiche la valeur du point dans le graphique
Valeur = .DataLabel.Characters.Text 'recupere la valeur du point dans une variable
.HasDataLabel = False 'ne plus afficher la valeur du point
End With
MsgBox Valeur

End Sub

j'ai le message d'erreur "Erreur 13 : incompatibilité de type".
Quand j'execute en "F5" et que je clique sur "Débogage", c'est la ligne en gras qui semble poser pb.

Si j'execute toute la sub en pas à pas, je n'ai pas de message d'erreur.

Quelqu'un a-t-il une piste ?