VBA_code_barre-erreur

[richert90]

Bonjour,
Sur un graphique, je veux mettre en place une barre d'erreur personnalisée avec les écart-type: Voici le code utilisé:

            ActiveChart.SeriesCollection(1).Select
            ActiveChart.SeriesCollection(1).HasErrorBars = True
            ActiveChart.SeriesCollection(1).ErrorBars.Select
        ActiveChart.SeriesCollection(1).ErrorBar Direction:=xlY, Include:=xlBoth, _
            Type:=xlCustom, Amount:="=" & nom & "!R5C2:R5C" & nb_classes + 1, MinusValues:="=" & nom & "!R5C2: R5C" & nb_classes + 1
            ActiveChart.SeriesCollection(1).ErrorBars.Select
            ActiveChart.PlotArea.Select

la ligne des écart type étant la 5ieme d’où le R5C2:R5C" & nb_classes +1 . 'nom' est le nom de la feuille Excel sur laquelle on travaille.

Voici l'erreur produite:

Erreur d’exécution '1004': erreur définie par l'application ou par l'objet

Les lignes suivantes sont en jaune:

ActiveChart.SeriesCollection(1).ErrorBar Direction:=xlY, Include:=xlBoth, _
            Type:=xlCustom, Amount:="=" & nom & "!R5C2:R5C" & nb_classes + 1, MinusValues:="=" & nom & "!R5C2: R5C" & nb_classes + 1

Alors que ce code a marché pour un autre fichier et le même type de graphique.
Merci de m'aider,