Tracé de courbe sur un graphique

Bonjour,

J'aurai besoin de votre aide pour tracer une seconde courbe sur mon histogramme (qui fonctionne par ailleurs) qui représente une loi normale avec des données sur la plage suivante : Sheet1.range(Sheet1.Cells(8, 8), Sheet1.Cells(31, 8))
Mais je n'y parviens pas ...

Voici mon 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
37
38
39
40
 
Set feuille = Sheets("Interface") 'affecte à l'objet feuille la feuille "interface"
Set graphique = feuille.ChartObjects.Add(60, 50, 1000, 800) 'créer le graphique
 
With graphique.Chart 'propriétés du graphique
    .ChartType = xlColumnClustered 'créer l'histogramme
    .SetSourceData Sheet1.range(Sheet1.Cells(8, 2), Sheet1.Cells(31, 2)) 'Sélectionne la contribution sur la plage de donnée
    .SeriesCollection.NewSeries
    .HasLegend = False
End With
 
With graphique.Chart
    .Axes(xlValue).Delete 'supprime l'axe des ordonnées
    .Axes(xlValue).MajorGridlines.Delete 'supprime les traits des ordonnées
    .Axes(xlCategory).Delete ' supprime l'axe des abscisses
    .ChartTitle.Delete 'supprime le titre
    .ChartGroups(1).GapWidth = 8 'définit l'écart entre les colonnes/intervals
End With
 
With feuille
    .ChartObjects(4).Left = range("S122").Left 'permet de positionner le graphique sur la cellule S122
    .ChartObjects(4).Top = range("S122").Top
End With
 
 graphique.Chart.SeriesCollection(2).Delete 'supprime la série 2
 graphique.Chart.SeriesCollection(1).Trendlines.Add 'ajoute une courbe de tendance de moyenne mobile
 graphique.Chart.SeriesCollection(1).Trendlines(1).Select
 
With Selection
        .Type = xlMovingAvg
        .Period = 2
 End With
 
 With graphique.Chart.SeriesCollection(1).Trendlines(1).Format.Line
        .Visible = msoTrue
        .Weight = 4
 End With
 
Set graphique = Nothing 'libère la mémoire
Set feuille = Nothing

Merci d'avance de votre aide !