graph macro decaler nbval

[vatounet]

Salut,

Grace à TITCOEUR (et beaucoup d'autres...) (encore merci) j'ai presque fini mon usine à graphique
Il me reste encore une truc qui plante (normal):

Je fais un graph par macro, avec le debut de code suivant :

Sub graph2()

    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets('Feuil2').Range('A2:C5'), PlotBy:= _
        xlColumns
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    [color=#FF0000]ActiveChart.SeriesCollection(1).XValues.FormulaLocal = '=DECALER(feuil2!$b$2;;;NBVAL(feuil2!$b:$b)-1)'
    ActiveChart.SeriesCollection(1).Values.FormulaLocal = '=DECALER(feuil2!$c$2;;;NBVAL(feuil2!$c:$c)-1)'[/color]
    ActiveChart.SeriesCollection(1).Name = '=Feuil2!R1C3'
    ActiveChart.Location Where:=xlLocationAsObject, Name:='Feuil2'
.......

Cette macro est appelé par une autre macro et recré donc en boucle unnouveau graph.
Au debut, pour determiner mes donnees en X j'avais ecrit :

activechart.seriescollection(1).XValues = 'testboucle.xls!ANNEE'
et
activexhart.seriescollection(1)Values = 'testboucle.xls!VALEUR'

Les 2 test boucles ANNEE et VALEUR appelé respectivement des fonctions nommées tels que:
ANNEE=decaler(feuil2!$b$2;;;nbval($b:$b)-1)
et
VALEUR=decaler(feuil2!$c$2;;;nbval($c:$c)-1)

Bien sa marche au premier tour de ma boucle, mais au second
sa plante et mes fonctions affiche :
.....feuil2!#REF.....

Donc j'écrit la formule direct dans ma macro avec FormulaLocal, mais sa marche pas du tout
J'ai vu aussi Application.worksheetfunction....

Si quelqu'un à des idées, j'accepte tout

Bonne journée et d'avance merci

A+

Fred