Sub Mise_en_forme_Graph1()
Dim Montants_Loc As Worksheet
Dim Graph1 As Chart
Set Montants_Loc = ThisWorkbook.Sheets("Montants locations")
'Set Graph1 = Montants_Loc.Charts("Graphique 1")
Montants_Loc.ChartObjects(Graph1).Name = "Graphique 1"
Montants_Loc.ChartObjects("Graphique 1").Activate
With Graph1.ChartArea.Format.Fill
.Visible = msoTrue
.Solid
.ColorIndex = 2
End With
With Graph1.ChartArea.Format.Line
.Visible = msoCTrue
.DashStyle = msoLineSolid
.Weight = 4
End With
With Graph1.SeriesCollection(1).Interior
.ColorIndex = 32
.Pattern = xlSolid
End With
End Sub