Coucou, En effet, il te manquait quelques bases ^^" Essaye ceci pour commencer : ((lambda (/ *error* InitLayout layout-list acet lay Value Nb) (defun *error* (msg) (if acet (setq acet (acet-ui-progress)) ) (princ) ) (setq InitLayout (getvar "CTAB") Nb 0 ) (initget "0 1") (if (or (null (setq Value (getint "\nQuelle valeur souhaitez-vous affecter à la variable système \"PSLTSCALE\" [0/1] <0> : "))) (and (/= Value 0) (/= Value 1))) (setq Value 0) ) (se