let suppri_liste_indice i l =
        let liste_sortie = ref [] in
        for j = 0 to ((List.length l) - 1) do
                if (i <> j) then        liste_sortie := !liste_sortie @ [List.nth l j];
        done;
        !liste_sortie