Bonsoir
Cette macro jouera le son tant que la valeur de A1 ne soit pas revenu dans les normes
En remplacement de la macro équivalente dans le programme d'Amadéus
A toi de 'paramétrer" la boucle pour obtenir l'effet désiré
Sub Joue()
Dim I As Long
Do
Call sndPlaySound32(ThisWorkbook.Path & "\sabreslaser.Wav", 1)
For I = 1 To 20000000: Next I
DoEvents
Loop Until Range("A1") <= 20
End Sub