Code macro pour passer a la diapo suivante

Bonsoir le forum

on vient de me donner un ppt pour afficher les numéros d un loto sur grand écran
ce ppt contient des macros

sur la diapo n°1 il y a 90 images qui représente les boules chaque images contient un lien hypertexte qui exécute une macro

Quand on clic sur une image elle disparait de la diapo n° 1 pour apparaitre en grand sur la diapos n°2 et a sa taille de départ sur la diapo N° 3

pour faire apparaitre la diapo n°2 il faut se servir de la molette de la souris ou cliquer sur les flèches qui se trouve en bas a gauche de la diapo n°1

Ma question est quel code il faut que je rajoute a la macro pour que la diapo n°2 apparaisse automatiquement quand je clique sur une image de la diapo n°1 et ou dois je mettre le code dans la macro

je vous joint la macro qui est exécuter par le lien hypertexte

Sub BallClick(oShapeBall As Shape)
    Dim iCurrentSlide As Integer
    Dim iOppositeSlide As Integer
    Dim iVerticalOffset As Integer
    iVerticalOffset = 20

    ' Save the current Ball and Number names
    ActivePresentation.Tags.Add "SelectedBall", oShapeBall.Name
    ActivePresentation.Tags.Add "SelectedNumber", Replace(oShapeBall.Name, "b", "n")

    ' Define the target slide number
    If ActivePresentation.SlideShowWindow.View.Slide.SlideIndex = 1 Then
        iCurrentSlide = 1
        iOppositeSlide = 3

        ' Slide 02 : Display number
        ActivePresentation.Slides("Slide_Zoom").Shapes("txtBallName").TextFrame.TextRange.Text = Replace(ActivePresentation.Tags("SelectedNumber"), "n", "")

        ' Slide 01 : Copy the ball picture from 1st slide to 2nd one
        On Error Resume Next
        ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").Delete
        On Error GoTo 0

        ActivePresentation.Slides("Slide_Before").Shapes(oShapeBall.Name).Copy
        ActivePresentation.Slides("Slide_Zoom").Shapes.Paste
        ActivePresentation.Slides("Slide_Zoom").Shapes(oShapeBall.Name).Name = "dummy"
        ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").Visible = msoCTrue

        ' Slide 02 : Center the ball
        ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").Left = (ActivePresentation.PageSetup.SlideWidth - ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").Width) / 2
        ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").Top = (ActivePresentation.PageSetup.SlideHeight - ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").Height) / 2
        ' Slide 02 : Scale the ball
        ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").ScaleHeight 0.6, msoTrue, msoScaleFromMiddle
        ActivePresentation.Slides("Slide_Zoom").Shapes("dummy").ScaleWidth 0.6, msoTrue, msoScaleFromMiddle
        ' Slide 02 : Center textbox with ball's number
        ActivePresentation.Slides("Slide_Zoom").Shapes("txtBallName").Left = (ActivePresentation.PageSetup.SlideWidth - ActivePresentation.Slides("Slide_Zoom").Shapes("txtBallName").Width) / 2
        ActivePresentation.Slides("Slide_Zoom").Shapes("txtBallName").Top = ((ActivePresentation.PageSetup.SlideHeight - ActivePresentation.Slides("Slide_Zoom").Shapes("txtBallName").Height) / 2) - iVerticalOffset
        ActivePresentation.Slides("Slide_Zoom").Shapes("txtBallName").ZOrder msoBringToFront
    Else
        iCurrentSlide = 3
        iOppositeSlide = 1
    End If

    ' This ball is visible
    If oShapeBall.Visible Then
        ' We make it NOT visible on the opposite slide
        ActivePresentation.Slides(iCurrentSlide).Shapes(ActivePresentation.Tags("SelectedBall")).Visible = msoFalse
        ActivePresentation.Slides(iCurrentSlide).Shapes(ActivePresentation.Tags("SelectedNumber")).Visible = msoFalse
        ActivePresentation.Slides(iOppositeSlide).Shapes(ActivePresentation.Tags("SelectedBall")).Visible = msoTrue
        ActivePresentation.Slides(iOppositeSlide).Shapes(ActivePresentation.Tags("SelectedNumber")).Visible = msoTrue

    Else
        ' We make it visible on the opposite slide
        ActivePresentation.Slides(iCurrentSlide).Shapes(ActivePresentation.Tags("SelectedBall")).Visible = msoTrue
        ActivePresentation.Slides(iCurrentSlide).Shapes(ActivePresentation.Tags("SelectedNumber")).Visible = msoTrue
        ActivePresentation.Slides(iOppositeSlide).Shapes(ActivePresentation.Tags("SelectedBall")).Visible = msoFalse
        ActivePresentation.Slides(iOppositeSlide).Shapes(ActivePresentation.Tags("SelectedNumber")).Visible = msoFalse
    End If


End Sub

merci d'avance pour votre aide
Cordialement

Snoopy0701