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.