VB Excel son sur demande

voici le code...mais il ne vient pas de moi...
Mais je l'ai modifié un peu...

' --------------------------------------------------------------------------------
' Copyright ©1999-2007, Shyam Pillai, All Rights Reserved.
' --------------------------------------------------------------------------------
' You are free to use this code within your own applications, add-ins,
' documents etc but you are expressly forbidden from selling or
' otherwise distributing this source code without prior consent.
' This includes both posting free demo projects made from this
' code as well as reproducing the code in text or html format.
' --------------------------------------------------------------------------------
Modified by ACTS

Option Explicit
' ===== API declarations =====

Private Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" _
(ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
' Sound Flag
Private Const SOUND_FILENAME = &H20000

'===== Test the functions ======
Sub Sounds()
If Range("B1") = 2 Then
Debug.Print PlaySoundFileA("C:\Documents and Settings\Desktop\sounds test\bomb.wav")
ElseIf Range("B1") = 3 Then
Debug.Print PlaySoundFileA("C:\Documents and Settings\Desktop\sounds test\child.wav")
ElseIf Range("B2") = 3 Then
Debug.Print PlaySoundFileA("C:\Documents and Settings\Desktop\sounds test\chainsaw.wav")
End If
End Sub

' ===== Method 1 =====
Public Function PlaySoundFileA(sndFileName As String) As Boolean
Dim iSuccess As Integer
iSuccess = sndPlaySound(sndFileName, SOUND_FILENAME)
If iSuccess = 0 Then
PlaySoundFileA = False
Else
PlaySoundFileA = True
End If
End Function