Intégrer fichier audio sur Excel

Option Explicit
Private Declare Function PlaySound Lib 'winmm.dll' _
  Alias 'PlaySoundA' (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

Sub Audio()
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
    
    WAVFile = 'C:\\Windows\\Media\\Tada.wav' 'à adapter
    Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
    
End Sub

Sub Auto_Open()
    ActiveSheet.Shapes('Object 6').Visible = True
    ActiveSheet.Shapes('Object 6').Select
    Selection.Verb Verb:=xlPrimary
    ActiveSheet.Shapes('Object 6').Visible = False
    
    
End Sub