diff --git a/VM/instruction.lisp b/VM/instruction.lisp
index bb613f0..5339aed 100644
--- a/VM/instruction.lisp
+++ b/VM/instruction.lisp
@@ -43,6 +43,7 @@
 (defun set-register (vm register value) (send vm 'set-register register value))
 (defun size-memory (vm) (send vm 'size-memory))
 
+;;TODO : Rajouter une fonction resolve pour resoudre les differents modes d'adresssage.
 ;; TODO : Penser a ajouter une table des opcodes
 
 (defvar table-operateurs
@@ -193,6 +194,7 @@ et termine par la liste APPEND."
 
 ;;Test Unitaire
 ;; TODO : Faire deftestvar
+;; TODO : Finir le test unitaire
 (load "test-unitaire")
 (defvar vm (make-vm (+ 10 (random 10))))
 (defvar t-address (random (size-memory vm)))
@@ -210,4 +212,5 @@ et termine par la liste APPEND."
          (get-memory vm t-address))
   (get-register vm 'R0))
 
+
 (dump-vm vm)
\ No newline at end of file