VBA Powerpoint Supprimer toutes les vidéos

Sub supprimerToutesVideos()
    answer = MsgBox("voulez-vous VRAIMENT supprimer toutes les videos?", vbOKCancel)
    If answer = vbOK Then
        Dim counter As Integer
        counter = 0
        For Each s In ActivePresentation.Slides
            For Each sh In s.Shapes
                If sh.Type = msoMedia Then
                    If sh.MediaType = ppMediaTypeMovie Then
                        sh.Delete
                        counter = counter + 1
                    End If
                End If
            Next sh
        
        Next s
    End If

    MsgBox (counter)
End Sub