diff --git a/gephi/--level=1 b/gephi/--level=1
new file mode 100644
index 0000000000000000000000000000000000000000..6e4f7af7671519b7ec7b7a571e89dd1bd51f5737
Binary files /dev/null and b/gephi/--level=1 differ
diff --git a/gephi/--level=3 b/gephi/--level=3
new file mode 100644
index 0000000000000000000000000000000000000000..6e4f7af7671519b7ec7b7a571e89dd1bd51f5737
Binary files /dev/null and b/gephi/--level=3 differ
diff --git a/gephi/--level=5 b/gephi/--level=5
new file mode 100644
index 0000000000000000000000000000000000000000..6e4f7af7671519b7ec7b7a571e89dd1bd51f5737
Binary files /dev/null and b/gephi/--level=5 differ
diff --git a/script/src/.csv.ml.swp b/script/src/.csv.ml.swp
new file mode 100644
index 0000000000000000000000000000000000000000..f68b223a0a4af7cccb07d7f767202b7bd5da4a41
Binary files /dev/null and b/script/src/.csv.ml.swp differ
diff --git a/script/src/.point_assos_to_gephi.ml.swp b/script/src/.point_assos_to_gephi.ml.swp
new file mode 100644
index 0000000000000000000000000000000000000000..bb7c0e7bb6ebaf5ec1ecc0e5a7c749a2fb8f2009
Binary files /dev/null and b/script/src/.point_assos_to_gephi.ml.swp differ
diff --git a/script/src/csv.ml b/script/src/csv.ml
index 911b59fe4be60f8f00627dfa61455cfb44d656cf..d5aaa6658d9c17c1b0b40a0af17a293627b6fab4 100644
--- a/script/src/csv.ml
+++ b/script/src/csv.ml
@@ -221,8 +221,6 @@ a1  , b1  , c1  , d1
 *)
 let filter_line rand_csv f =
         let htab = Hashtbl.create (List.length rand_csv.column_name) in
-        let n = List.length rand_csv.column_name in
-        let col_name_arr = Array.of_list rand_csv.column_name in
         let rec save_line a l i = 
                 match l with
                 |[] -> ()
diff --git a/script/src/point_assos_to_gephi.ml b/script/src/point_assos_to_gephi.ml
index 0740fd8f4caad0f6ea72d624fd93a775271f585d..25cf25bcb13d2cfd7052116b27ac323a3ac1efa9 100644
--- a/script/src/point_assos_to_gephi.ml
+++ b/script/src/point_assos_to_gephi.ml
@@ -80,15 +80,12 @@ let () = begin
 
         
         let eleve_sans_asso = supprime_eleve_avec_assos eleves_assos in
-        Csv.map eleve_sans_asso "Assos" (fun x -> "Fantome");
+        let _ = Csv.map eleve_sans_asso "Assos" (fun x -> "Fantome") in
         Csv.save eleve_sans_asso "../../res_script/eleve_sans_asso.csv";
         let eleve_avec_asso = supprime_eleve_sans_assos eleves_assos in
-        Csv.map eleve_avec_asso "Assos" (fun x -> "Asso");
+        let _ = Csv.map eleve_avec_asso "Assos" (fun x -> "Asso") in
         Csv.save eleve_avec_asso "../../res_script/eleve_avec_asso.csv";
         
-        let l1 = Csv.get_column eleve_sans_asso in
-        let l2 = Csv.get_column eleve_avec_asso in
- 
         let tout_eleve = 
                 List.fold_left (fun acc elt -> Csv.add_line acc elt) eleve_sans_asso eleve_avec_asso.data in