J'ai trouvé un filetage dans lequel se trouvait l'Applescript suivant :
tell application "System Events" to set p to (path to frontmost application) as string
tell application "System Preferences"
activate
reveal anchor "Dictation" of pane "com.apple.preference.speech"
end tell
tell application "System Events"
tell process "System Preferences"
tell pop up button 1 of tab group 1 of window "Dictation & Speech"
click
if (get value of attribute "AXValue") contains "English (United States)" then
click menu item "German" of menu 1
say "Dictation set to German"
else if (get value of attribute "AXValue") contains "German" then
click menu item "English (United States)" of menu 1
say "Dictation set to English"
end if
end tell
end tell
end tell
quit application "System Preferences"
activate application p
Je l'ai testé et ça marche. Il suffit de remplacer "Allemand" par la langue de votre choix.
En outre, puis-je suggérer une application appelée FastScripts qui vous permet d'exécuter l'applescript soit à partir de la barre de menu supérieure, soit à partir d'un raccourci clavier.
J'espère que cela a résolu votre problème !