Code VBA powerpoint checkbox avec condition et renvoi

Bonjour,

J'ai besoin d'aide pour un code dans mon document powerpoint.

J'ai fait un quizz sur powerpoint, et je voudrais faire que lorsque si 2 cases à cocher précises sont cocher, on valide et que cela envoie à une certaine diapositive avec un comptage de point (+1) et que si les 2 ne sont pas cocher, cela renvoie à une autre diapositive avec un comptage de point 0

J'ai réussi à faire le comptage des points et le renvoie lorsque je clique sur un seul choix, mais si je veux un choix multiple avec des check-box je n'y arrive pas.

Voilà ce que  j'ai fait : j'ai insérer 4 checkbox dans mon document et un bouton de validation.

J'ai mis une action sur le bouton de validation pour le code suivant : (déjà essayé avec une seule checkbox vrai) :

Sub Correct ()

If CheckBox1.Value = True Then

Points.Caption = (Points.Caption) + 1

ActivePresentation.SlideShowWindow.View.GotoSlide 4

Else

Points.Caption = (Points.Caption) + 0

ActivePresentation.SlideShowWindow.View.GotoSlide 7

End If

End Sub

J'ai aussi essayé plus simplement d'enlever déjà le comptage des points : 

Sub Correct ()

If CheckBox1.Value = True Then

ActivePresentation.SlideShowWindow.View.GotoSlide 4

Else

ActivePresentation.SlideShowWindow.View.GotoSlide 7

End If

End Sub

Mais rien ne se passe. 
Par contre mon code suivant (avec click sur le choix de la réponse) fonctionne très bien : 

Sub Correct()
Points.Caption = (Points.Caption) + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub

Merci de votre aide

Sandra
Windows / Edge 104.0.1293.70