With Sheets("Feuil1").ChartObjects("Graphique 1").Chart
.ChartArea.Border.Color = RGB(255, 255, 0)
.ChartArea.Interior.Color = RGB(125, 125, 125)
With .Axes(xlValue)
.Border.Weight = xlHairline
.Border.LineStyle = xlNone
.TickLabels.Font.Color = RGB(255, 255, 0)
End With
End With