excel /office 2016 : activer 2 synthèses vocales dans 2 langues à la volée

Sub test()
 Dim Voix As Object
 Dim i As Long
     Set Voix = CreateObject("Sapi.SpVoice")
     For i = 1 To Voix.GetVoices.Count
         MsgBox Voix.GetVoices.Item(i - 1).GetDescription & " - code pays : " & Voix.GetVoices.Item(i - 1).GetAttribute("Language")
'  -----------selectionne le Moteur TTS
         Set Voix.Voice = Voix.GetVoices.Item(i - 1)
' ------------prononce la description 
         Voix.Speak Voix.Voice.GetDescription
     Next
 End Sub