Graphique VB

Bonjour a tous.

g éssayé d'insérer une macro a un graphique excel lorsque l'on click dessus.
Problème: Vb me renvoie:"la méthode 'Range' de l'objet'_Global' a échoué"
Est ce que l'un d'entre vous connait la procédure correcte pour:

Sub Graphique4_QuandClic()
'
' Graphique4_QuandClic Macro
' Macro enregistrée le 25/04/2005 par rieusset
'

'
ActiveSheet.ChartObjects("Graphique 4").Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Values = Range("P4", Range("P4").End(xlDown).Select)

End Sub