Cocher/ décocher checkebox

Bonjour,

Voila je dois faire une petite programmation sur excel mais je rencontre quelque difficulté.
Mon problème est le suivant: Je ne sais pas comment écrire un programme VBA qui me permettrait de décocher une Checkbox lorsque que celle-ci devient invisible.
voici le programme que j'ai commencé a faire pouvez-vous me dire quoi taper pour decocher une checkbox quand elle est cocher et qu'elle devient invisible SVP.

voici mon programme:

Private Sub Génie_Click()
If ActiveSheet.Shapes("GénieA").Visible = True Then
ActiveSheet.Shapes("GénieA").Visible = False
If ActiveSheet.Shapes("déroulé A").Visible = True Then
ActiveSheet.Shapes("déroulé A").Visible = False
Else: ActiveSheet.Shapes("déroulé A").Visible = False
If ActiveSheet.Shapes("GénieA").Checked = True Then
ActiveSheet.Shapes("GénieA").Checked = False
Else: ActiveSheet.Shapes("GénieA").Checked = True
End If
End If
Else: ActiveSheet.Shapes("GénieA").Visible = True
End If
End Sub