let rec auxi_melange_liste ~lnm ~lm =
(*                suppri_liste*)
        match (List.length lnm) with
        | 0        ->        lm (* @ [List.nth lnm 0] *);
        | _        ->        (
                        let i = Random.int(List.length lnm) in
                        (auxi_melange_liste ~lnm:(suppri_liste_indice i lnm) ~lm:(lm @ [List.nth lnm i]))
                        )