Diffuser un .wav en boucle et le stoper

Bonjour à tous,

j'ai trouvé grâce à ce forum comment diffuser un son .wav à partir d'une macro :

Worksheets("TEST").OLEObjects("Object 9").Verb



J'ai donc réalisé une macro qui à certaines heures précisées dans un tableau déclenche ce son wav qui correspond à une sorte d'alarme sonore :

HEUREstart = [O4] 'heure de vérification
For Each X In [E11:E58] 'tableau contenant des heures précises
If X = HEUREstart Then
If X.Offset(0, 1) <> X.Offset(-1, 1) Then 'petite condition perso
X.Offset(0, 1).Select
MsgBox ("Changement de charge !")
'Son wave
Worksheets("TEST").OLEObjects("Object 9").Verb
End If
End If
Next X

J'aimerai maintenant que ce son soit diffusé en boucle jusqu'à ce que l'utilisateur clique sur par exemple une boite de dialogue.


merci d'avance