Macro active uniquement quand coche case pas décoche

Bonjour,

J'ai tant bien que mal réussi à faire fonctionner ce bout de code pour qu'une message box d'avertissement s'affiche quand on coche une case. Malheureusement la macro s'active aussi quand on décoche cette case, ce que je ne veux pas. Comment faire ?

Sub msg_box_cac()

Dim Msg, Style, Title, Response
    Msg = "Vous avez activé l'augmentation automatique de production. Êtes-vous sûr ?"
    Style = vbYesNo + vbExclamation + vbDefaultButton2
    Title = "PROLIV_B © BOULANGERIE THOMAS"

    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
        If Response = vbYes Then
            Sheets("ADMINISTRATION").[Case à cocher 25].Value = True
        Else
            Sheets("ADMINISTRATION").[Case à cocher 25].Value = False
        End If

End Sub

Merci pour votre aide

Bonsoir,

"il suffit" de faire en "tête" du code un test sur la valeur de la case à cocher :
si sa valeur est vrai, le code est lancé pour la "décoche" alors on quitte
si sa valeur est fausse, le code est lancé pour la "coche" on ne quitte pas et on laisse le code fonctionner :

If Sheets("ADMINISTRATION").[Case à cocher 25].Value = True Then
Sheets("ADMINISTRATION").[Case à cocher 25].Value = False    
Exit Sub
End If

@ bientôt

LouReeD

Perfect ! It works fine ! Merci