Macro VBA Powerpoint - Suppression de plusieurs slides

'Microsoft PowerPoint 11.0 Object Library
Sub TestPowerPoint()
  ' On déclare une variable de type Application PowerPoint
  Dim ppt As PowerPoint.Application
  Set ppt = CreateObject("PowerPoint.Application")
  ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
  ' On crée maintenant un objet Presentation
  Dim Pres As PowerPoint.Presentation
  ' Et on lui dit de quelle présentation il s'agit :
  Set Pres = ppt.Presentations.Open(Filename:="C:\chemin de la presentation")
 ' Et on supprime la deuxieme diapositive de la présentation :
  Pres.Slides(2).Delete
'mettre tous les slides a supprimer a la suite
  ' On enregistre la présentation PowerPoint :
  Pres.Save
  ' Et on quitte PowerPoint proprement :
  ppt.Quit
  Set ppt = Nothing
End Sub

Option Explicit
Option Base 0
Sub MonPremierTableau()
Dim toto, tata, titi, tutu, tonton As Integer
toto = 20
tata = 18
titi = 16
tutu = 14
tonton = 12
    'Définit la taille du tableau et le type de données.
    Dim NomTableau(4) As String 'a adapter
    Dim i As Integer
    
    'Alimente les éléments du tableau
    NomTableau(0) = toto
    NomTableau(1) = tata
    NomTableau(2) = titi
    NomTableau(3) = tutu
    NomTableau(4) = tonton
    'Boucle sur les éléments du tableau pour lire leur contenu
    For i = 0 To 4 'a adapter
        MsgBox NomTableau(i)
    Next i
End Sub
Private Sub CommandButton1_Click()
MonPremierTableau
End Sub