Jouer un son windows

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


Private Declare Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long


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


Sub JouerSon()
Dim Chemin As String
'à adapter ....selon où le fichier .Wav est situé...
'ChDir ("C:\WINDOWS\Media")
Chemin = "C:\WINDOWS\Media"
PlaySound Chemin & "\tada.wav", 0, 0
Chemin = ThisWorkbook.Path
PlaySound Chemin & "\Knockwav.wav", 0, 0

PlaySound Chemin & "\RING1.wav", 0, 0
End Sub
'-------------------------------------------

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
Dim chemin, son, i

Sub Joue_Son()
chemin = ThisWorkbook.Path & "\"
With Feuil1
x = 1
For i = 0 To 5
If x <> i Then
son = .Range("a" & x).Value
t = Timer + 3: Do Until Timer > t: DoEvents: Loop
x = x + 1
If Application.CanPlaySounds Then
WAVFile = chemin & son & ".wav"
Call PlaySound32(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Else
Exit Sub
End If
End If
If x = 5 Then Exit For
Next i
End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call Joue_Son
Cancel = True
End Sub