Problème dans un graphique

Bonjour,
Voilà j'aimerais dans un graphique existant créer une nouvelle série avec comme plage de données une plage variable.
J'ai réussi à définir cette plage mais avec mon code il ne veut pas me l'intégrer dans ma série, il me met : erreur d'éxécution '1004' , La méthode 'SeriesCollection'de l'objet '_Chart' a échoué.

Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Sub limites()
 
Dim nbsondes As Integer
Dim debut_max, fin_max
Dim plagemax As Range
Dim nbligne
 
nbsondes = Sheets("liste").Range("B1").Value
nbligne = Sheets("DONNEES BRUTES").Range("B65536").End(xlUp).Row
debut_max = Sheets("DONNEES BRUTES").Cells(6, nbsondes + 10).Address
fin_max = Sheets("DONNEES BRUTES").Cells(nbligne, nbsondes + 10).Address
Set plagemax = Range(debut_max & ":" & fin_max)
 
plagemax.Select
Charts("GRAPHIQUE").Activate
 
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(nbsondes + 2).Values = plagemax
    ActiveChart.SeriesCollection(nbsondes + 2).Name = "=""TOLERANCE MAX"""
    ActiveChart.Legend.LegendEntries(nbsondes + 2).LegendKey.Select
    With Selection.Border
        .ColorIndex = 3
        .Weight = xlMedium
        .LineStyle = xlContinuous
    End With
    With Selection
       .MarkerBackgroundColorIndex = xlNone
       .MarkerForegroundColorIndex = xlNone
       .MarkerStyle = xlNone
       .Smooth = False
       .MarkerSize = 3
       .Shadow = False
    End With
End Sub

Help.:aie: