Macro de copie + envoie d'un son audio.

Option Explicit 
Public music As String 

Private Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long 

Const SND_SYNC = &H0 
Const SND_ASYNC = &H1 
Const SND_FILENAME = &H20000 


Sub maestro() 

If Application.CanPlaySounds Then 
       Call PlaySound32(ThisWorkbook.Path & "\" & "bruit.wav", 0&, SND_ASYNC Or SND_FILENAME) 
Else 
    Exit Sub 
End If 

End Sub