let list_of_matrix ma_matrice =
        let (m, n) = (nombreColonne ma_matrice, nombreLigne ma_matrice) in
        let res = ref [] in
        for j = 0 to (n-1) do
                for i = 0 to (m-1) do
                        res := !res @ [ma_matrice.(i).(j)]
                done;
        done;
        !res