Dans le classeur concerné, créer la macro suivante dans un module :
Public Sub TraitFin() Dim gr As Object, nbc As Long, nuc As Long Set gr = ActiveSheet.ChartObjects(1).Chart With gr nbc = gr.SeriesCollection.Count For nuc = 1 To nbc .SeriesCollection(nuc).Border.Weight = 3 Next nuc End With End Sub
puis, aller sur la feuille contenant le graphique à modifier et exécuter la macro.