Const code_graphique = "Graphique"
Const nom_seuil_1 = "mini"
Const nom_seuil_2 = "maxi"
'
Public Sub mise_en_forme_graphique()
Dim Liste_Courbes As SeriesCollection, Courbe As Series
If (Left(ActiveSheet.CodeName, Len(code_graphique)) = code_graphique) Then
'cest une page graphique
Set Liste_Courbes = ActiveSheet.ChartGroups(1).SeriesCollection
For Each Courbe In Liste_Courbes
With Courbe.Format.Line
.Visible = msoTrue
.Weight = 0.25
If (Right(Courbe.Name, Len(nom_seuil_1)) = nom_seuil_1) Or (Right(Courbe.Name, Len(nom_seuil_2)) = nom_seuil_2) Then .DashStyle = msoLineLongDash
End With
Next Courbe
End If
End Sub