'Jouer fichier wav
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Sub JouerWAV()
Call PlaySound(ThisWorkbook.Path & "\wav jouer.wav", 0&, &H1 Or &H20000)
End Sub