Transformer une macro de mise en forme en bascule

Bonjour le Forum,

J'ai créé une petite macro pour appliquer une bordure verticale pointillée aux cellules de la sélection.

J'aimerais la faire évoluer vers un fonctionnement "en bascule" :

– s'il n'y a pas de de bordure verticale intérieure préexistante, on la crée

– s'il y a déjà une bordure, on la supprime

Mais ça, ça dépasse mes compétences...

Quelqu'un pourrait-il m'indiquer comment faire, siouplé ?

Merci.

Sub Format_Bordure_Intermédiaire_verticale_Noir_pointillé()
    Application.CutCopyMode = False
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlHairline
        .ColorIndex = xlAutomatic
    End With
End Sub

bonjour,

une proposition

Sub Format_Bordure_Intermédiaire_verticale_Noir_pointillé()
    Application.CutCopyMode = False
    With Selection.Borders(xlInsideVertical)
        If .LineStyle = xlContinuous Then
            .LineStyle = xlNone
        Else
            .LineStyle = xlContinuous
            .Weight = xlHairline
            .ColorIndex = xlAutomatic
        End If
    End With
End Sub

Super, merci !!!!!!!