Mise en forme graphique

Bonjour à tous,

Je rencontre quelques problèmes sur l'élaboration d'une programmation en VBA.

Je possède une petite base de donnée (12 Colonnes x 288 Lignes) et j'aimerais réaliser différents graphiques. Pour commencer j'ai essayé de réalisé un graphique en prenant en compte 3 Colonnes de données.

Donc j'ai ce code, qui fonctionne "bien" mais je galère sur la mise en forme du graphique.

Sub Test()
Dim Grf As ChartObject
Dim Sh As Worksheet

Set Sh = Sheets("ADM_690000_Bernarderie_16.02.28")
'EDIT On supprime le graphique nommé Toto de la feuille Données
For Each Grf In Sh.ChartObjects
    If Grf.Name = "Température" Then
        Grf.Delete
        Exit For
    End If
Next Grf
'On crée notre graphique
Set Grf = Sh.ChartObjects.Add(100, 100, 567, 283.5)
Grf.Name = "Température"
With Grf.Chart
    .ChartType = xlLine
    .Axes(xlValue, xlPrimary).MajorGridlines.Border.LineStyle = xlContinuous
    .Legend.Position = xlLegendPositionBottom
    .SeriesCollection.NewSeries
    .SeriesCollection(1).Name = "=ADM_690000_Bernarderie_16.02.28!J1"
    With .SeriesCollection(1)
        .Values = Sh.Range("J2:J288")
        .XValues = Sh.Range("A2:A288")
    End With
End With
With Grf.Chart
    .ChartType = xlLine
    .Legend.Position = xlLegendPositionBottom
    .SeriesCollection.NewSeries
    .SeriesCollection(2).Name = "=ADM_690000_Bernarderie_16.02.28!K1"
    With .SeriesCollection(2)
        .Values = Sh.Range("K2:K288")
        .XValues = Sh.Range("A2:A288")
    End With
End With
With Grf.Chart
    .ChartType = xlLine
    .Legend.Position = xlLegendPositionBottom
    .SeriesCollection.NewSeries
    .SeriesCollection(3).Name = "=ADM_690000_Bernarderie_16.02.28!L1"
    With .SeriesCollection(3)
        .Values = Sh.Range("L2:L288")
        .XValues = Sh.Range("A2:A288")
    End With
End With
PlotVisibleOnly = False
Set Grf = Nothing
Set Sh = Nothing
End Sub

Sur le fichier excel disponible, il y a à gauche le graphique obtenu par VBA et à droite le graphique que je souhaite obtenir.

Est-ce que quelqu'un peu me filer un coup de main dans mon code ?

Bien Cordialement,

Destronic.

Remplacement de l'ancienne pièce jointe.