diff --git a/Codes.ml b/Codes.ml
index 9e7336a..2ad26d7 100644
--- a/Codes.ml
+++ b/Codes.ml
@@ -146,5 +146,7 @@ let decoder code z =
 		| (_, e) -> antecedent code ((lxor) z e)
 ;;
 
+let cyclencode code (x:vecteur) :vecteur = polmul code.pol x;;
+
 
 (* Voilà *)
\ No newline at end of file
diff --git a/Test.ml b/Test.ml
index 69e421d..ee28ef0 100644
--- a/Test.ml
+++ b/Test.ml
@@ -75,3 +75,5 @@ let cocylined = cycliqueVersLineaire cocycl;;
 print_matrice 7 cocylined.g;;
 print_matrice 4 cocylined.h;;
 distance_minimale cocylined;;
+
+print_vecteur 7 (cyclencode cocycl 0b1010);;