Images coche/décoche en formulaire

Bonjour à tous,

j'utilise 2 images l'une sur l'autre, plus visibles que les boutons checked d'Excel.

Voilà le code du bouton, et le test en fin de macro confirme le choix :

Private Sub ok1_Click()
'passage de la coche à décoche et vice versa
'coche ou décoche l'option de sélection de ligne
    Application.ScreenUpdating = False
    'coche
    If decoche2.Visible = True Then
         decoche2.Visible = False
         coche2.Visible = True
    'decoche
    ElseIf coche2.Visible = True Then
         coche2.Visible = False
         decoche2.Visible = True
    End If
    Application.ScreenUpdating = True
    If parametres.decoche2.Visible = True Then
    MsgBox "decoche"
    ElseIf parametres.coche2.Visible = True Then
    MsgBox "coche"
    End If
End Sub

Mais çà change dés que je ferme avec ce test.

Private Sub ferm_Click()
    Unload parametres
    If parametres.decoche2.Visible = True Then
    MsgBox "decoche"
    ElseIf parametres.coche2.Visible = True Then
    MsgBox "coche"
    End If
End Sub

Je comprends pas pkoi

Merci

Bonjour,

Ma question est pourquoi deux images et non pas une Case à cocher tout simplement ?