diff --git a/environnement.lisp b/environnement.lisp
index 4ea2e9d..162da09 100644
--- a/environnement.lisp
+++ b/environnement.lisp
@@ -143,10 +143,10 @@ l'environnement top-level."
                          ("TOP-LEVEL" (X . 24) (Z . 73))))
   '(("TOP-LEVEL" (X . 24) (Z . 73))))
 (deftest environnement
-  (add-top-level-binding (copy-tree '(("TEST" (X . 42)) ("TOP-LEVEL" (Y . 56))))
+  (add-top-level-binding (copy-seq '(("TEST" (X . 42)) ("TOP-LEVEL" (Y . 56))))
                          'Z 78)
   '(("TEST" (X . 42)) ("TOP-LEVEL" (Z . 78) (Y . 56))))
 (deftest environnement
-  (set-top-level-binding (copy-tree '(("LEVEL2" (X . 42)) ("TOP-LEVEL" (Y . 56))))
+  (set-top-level-binding (copy-seq '(("LEVEL2" (X . 42)) ("TOP-LEVEL" (Y . 56))))
                          'Y "42")
   '(("LEVEL2" (X . 42)) ("TOP-LEVEL" (Y . "42"))))
diff --git a/test-unitaire.lisp b/test-unitaire.lisp
index c24d55a..1e31d58 100644
--- a/test-unitaire.lisp
+++ b/test-unitaire.lisp
@@ -41,8 +41,7 @@
   `(progn
      (if (not (assoc ',module all-tests))
          (setf all-tests (cons (list ',module nil nil) all-tests)))
-	 ;; TODO : utiliser copy-seq ou copy-tree ???
-     (push (list ',name (list 'copy-tree ',value))
+     (push (list ',name (list 'copy-seq ',value))
            (second (assoc ',module all-tests)))))
 
 (defmacro run-tests (&rest modules)