Set voice = CreateObject("SAPI.SpVoice")
voice.Rate = 1
voice.Volume = 100
Say = "C'est seulement quand on a trouvé la raison de mourir que l'on oubli celle de vivre."
voice.Speak Say
do while true
Set voice = CreateObject("SAPI.SpVoice")
voice.Rate = 1
voice.Volume = 100
boucle = "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
voice.Speak boucle
loop