let melanger_matrix_to_list ma_matrice () = (melange_liste (list_of_matrix ma_matrice))