for each wb in workbooks
if wb.name<>activeworkbook.name then wb.close savechanges:=false
next wb
ce script à la volée devrait normalement te permettre de fermer tous les classeurs ouverts sauf le classeur actif (qui appellera le script) sans en sauvegarder les changements