Faire un graphique macro excel

Bonjour,

j'ai un petit probleme avec une macro. Celle ci fait apparaitre un graphe dans une feuille puis dans une userform

les données du graphe sont:
A19:A50 valeurs en abscisse
F19:F50 valeurs en ordonnées

serie 1

A19:A50 valeurs en abscisse
I19:I50 valeurs en ordonnées

serie 2

Le souci vient du code de: ActiveChart.SeriesCollection(2).Name = "=""Moyenne"""

La methode seriecollection de l'objet chart a echoué


Peut etre que le graphe ne se réalise pas comme il le faudrait ?

je vous met le code:

Sub graphique()

Dim annee, mois As String

annee = UserForm7.ComboBox2.Value
mois = UserForm7.ComboBox1.Value

If mois = "01" Then

Range("A19:A50,F19:F50,I19:I50").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets(annee).Range("A19:A50,F19:F50"), _
PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Name = "=""Kilometrage"""
ActiveChart.SetSourceData Source:=Sheets(annee).Range("A19:A50,I19:I50"), _
PlotBy:=xlColumns
ActiveChart.SeriesCollection(2).Name = "=""Moyenne"""

ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Mois"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Jours"
.Axes(xlValue, xlPrimary).HasTitle = False
.Export _
Filename:="D:\Roger\Dossier personnel\Vélo\Graphes\janvier.gif", filtername:="GIF"
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True

End With



Image1.Picture = LoadPicture("D:\Roger\Dossier personnel\Vélo\Graphes\janvier.gif")
End If

End Sub



Merci pour les réponses a venir