ActiveSheet.ChartObjects("graph").Activate
With ActiveChart
.ApplyLayout (3)
.ChartStyle = 37
.SetElement (msoElementDataLabelOutSideEnd)
.ChartTitle.Border.Color = 5880731 (pour mettre le contour du titre en vert)
.ChartTitle.Border.LineStyle = xlContinuous (pour mettre le contour du titre en continue)
.ChartTitle.Border.Weight = xlMedium (pour mettre le contour d'épaisseur moyenne)
(BEUG, je veux faire la même chose pour la zone graphique)
.ChartObjects.Border.Color = 5880731
.ChartObjects.Border.LineStyle = xlContinuous
.ChartObjects.Border.Weight = xlMedium
End With