Macro pour Remise à Zéro

'Remise à zéro de tous les itineraires de la page1
Sub RAZ_Page1()
For Each S In ActiveSheet.Shapes
    If S.Type = 9 Then
    NomLigne = Replace(S.Name, "Ligne ", "")
    If NomLigne < 111 Then
    S.Line.Weight = 1
    S.Line.ForeColor.SchemeColor = 0
    End If
    End If
Next
End Sub


'Remise à zéro de tous les itineraires de la page2
Sub RAZ_Page2()
For Each S In ActiveSheet.Shapes
    If S.Type = 9 Then
    NomLigne = Replace(S.Name, "Ligne ", "")
    If NomLigne >= 111 Then
    S.Line.Weight = 1
    S.Line.ForeColor.SchemeColor = 0
    End If
    End If
Next
End Sub