Declare Function sndPlaySound32 Lib "C:\WINDOWS\SYSTEM32\winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub Bouton18_Cliquer()
Dim NomFich As String
NomFich = ActiveWorkbook.Path & Sheets("Test").Range("A1").Value
Call sndPlaySound32(NomFich, 0)
End Sub