VBA - Chart, Graphique Style de Courbe

Bonjour,

Je génère un graphique avec 3 courbes, une courbe et 2 autres qui sont stables (seuil de tolérance). Le but est d'avoir pour ces deux dernières courbes, des lignes rouges (Traits pleins). Le graphique est un graphique Courbe avec Marques

J'obtiens ce graphique :

Le but est d'avoir celui ci :

Pour cela je fais :

Mais avec l'enregistreur de Macro, cela ne fonctionne pas, j'obtiens pas la même chose.

Code avec l'enregistreur :

ActiveSheet.ChartObjects("Graphique 24").Activate
ActiveChart.FullSeriesCollection(3).Select
Selection.Format.Fill.Visible = msoFalse
Selection.Format.Line.Visible = msoFalse

With Selection.Format.Line
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 0, 0)
    .Transparency = 0
End With

Application.CommandBars("Format Object").Visible = False

With Selection.Format.Line
    .Visible = msoTrue
    .Weight = 1
End With

Range("S18").Select

Pouvez-vous m'aider ? Je vous remercie :)

J'ai trouvé la solution. Merci quand même !