Quiz powerpoint

bonjour à tous.

je suis en cours de création de quiz (PowerPoint 2016) pour des formation CACES. j'ai fais toutes les animations, j'ai intégré un système de points et je voudrais qu'en fonction du nombre de points obtenus, une image différente apparaisse sur la diapo (score total).
j'ai codé des lignes mais elles ne fonctionnent pas
ma question est le suivante, ça bug ou?
Sub PlusOne()
MonScore.Caption = (MonScore.Caption) + 1
End Sub
Sub ExitanReset()
MonScore.Caption = 0
ActivePresentation.SlideShowWindow.View.Exit
End Sub
Sub score()
SlideLayout32.MonScore
SlideLayout32.ScoreMax
moyenne = SlideLayout32.ScoreMax / 2
If SlideLayout32.MonScore = SlideLayout32.ScoreMax Then
SlideLayout32.Igenie.Visible = True
SlideLayout32.Imoyen.Visible = False
SlideLayout32.Irévision.Visible = False
ElseIf SlideLayout32.MonScore < moyenne Then
SlideLayout32.Igenie.Visible = False
SlideLayout32.Imoyen.Visible = False
SlideLayout32.Irévision.Visible = True
Else
SlideLayout32.Igenie.Visible = False
SlideLayout32.Imoyen.Visible = True

sachant que ma diapo porte le non de (SlideLayout32) le compteur (MonCore) totalise les points validé et le compteur (ScoreMax) reste fixe à 20 points

merci de votre expertise.