Bonjourca fonctionne merci
-- Prend en compte toutes les applications ouvertes dans le Dock, sauf le Finder
tell application "System Events" to set the_apps to name of every application process whose visible is true and name is not "Finder"
-- Quitte les applications les unes après les autres
repeat with ferme_App in the_apps
try -- Pour gérer les fenêtres d'alerte
tell application ferme_App to quit -- Ferme l'application lue
end try
end repeat