Option Explicit
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpzSoundName As String, ByVal uFlags As Long) As Long
Sub Son_Wav()
If Application.CanPlaySounds Then Call sndPlaySound32("C:\Bienvenue JC.wav", 0)
End Sub