C'est bon, j'ai trouvé !
Private Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub Jingle(ByVal Jgle As String)
Call sndPlaySound32(fichier musique, 1)
End Sub