Bonjour à tous Un cherchant sur le forum j'ai trouvé ce bout de code (defun c:att ( / obj-txt chn obj-att att-tag att-val obj-blc blc-val) (setq obj-txt (nentsel "\n Choisir le texte de reference : ")) (setq chn (cdr (assoc 1 (entget (car obj-txt))))) (setq obj-att (nentsel "\n Choisir l'attribut à modifier : ")) (setq att-tag (cdr (assoc 2 (entget (car obj-att))))) (setq att-val (cdr (assoc 1 (entget (car obj-att))))) (alert (strcat "\nEtiquette de l'attribut : " att-tag ".\