'/// Dans Slide1 ///
Private Sub CommandButton21_Click()
Dim rep As Variant
rep = InputBox("Entrez un numéro de slide " & _
"entre 1 et " & ActivePresentation.Slides.Count & "", "1")
On Error Resume Next
MsgBox ActivePresentation.Slides(rep).Name
SlideShowWindows(1).View.GotoSlide rep
End Sub
Private Sub repondre_Click()
Dim Result As Variant
Result = InputBox("Entrez votre réponse")
If Result = "france" Then
SlideShowWindows(1).View.GotoSlide 3
Else
SlideShowWindows(1).View.GotoSlide 2
End If
End Sub