VBA Powerpoint Démarrer les vidéo automatiquement

Voici un bout de code en vba qui met toutes les vidéos de la présentation en démarrage automatique (par défaut, elles démarrent au clic).
Sub triggerAuto()
Dim counter As Integer
counter = 0
types = ""
For Each s In