Sub test()
On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler
Application.Speech.Speak "appuyer sur escape pour arrêter le texte parlé "
Application.Speech.Speak "Bonjour, " _
& "J'ai ajouté des textes 'parlés' dans un excel, " _
& "pour expliquer -par exemple- pourquoi un champ est mal saisi." _
& "Je souhaiterai, dans le cas ou le texte parlé est trop long pouvoir l'interrompre" _
& "et continuer la suite de ma macro." _
& "Je n'ai pas trouvé de moyen (escape, Ctrl + C etc...)." _
& "Je suis donc obligé d'attendre jusqu'à la fin du speech..." _
& "Connaitriez-vous une commande qui permette cela ?" _
& " Merci d'avance." _
& "Gérard "
Exit Sub
handleCancel:
'If Err = 18 Then
Application.Speech.Speak "Vous avez stoppé la lecture !"
'End If
End Sub