j'ai essayé :
Dim MonWav As String
MonWav = Range("L19").Value '... chemin et nom à adapter
ExecuteExcel4Macro ("CALL(""winmm"",""sndPlaySoundA"",""JCJJ"",""" & MonWav & """, " & 0 & "," & &H8 & ")")
avec h8 pour le loop... marche pas (pas de loop)
Dim MonWav As String
MonWav =...