[XL-2010] Erreur lors de la création d'un graphique en VBA

Bonjour,

J'ai le message d'erreur suivant lors de la création du graphique. Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Générer_1_Graphique()
    Dim DernColonne As Integer
    Dim PremLigne As Range
    Dim Donnees As Range
    'Activation de la feuille EPAREG
    Sheets("epareg").Activate
    With ActiveSheet
        DernColonne = .Cells(1, .Columns.Count).End(xlToLeft).Column
        'Sélection de l'en-tête et des données de l'industrie
        Set PremLigne = Range(Cells(1, 1), Cells(1, DernColonne))
        Set Donnees = Range(Cells(3, 1), Cells(3, DernColonne))
        'Union des données du graphique
        Set MaPlage = Union(PremLigne, Donnees)
    End With
    'création du graphe
    MaPlage.Select
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData MaPlage, PlotBy = xlColumns   
End Sub

VBA m'indique que le problème se situerait à la dernière ligne : ActiveChart.SetSourceData MaPlage, PlotBy = xlColumns.

Où est-ce que j'ai fait une ou des erreurs ?

Merci pour votre aide!

Sylvain