let rec suppri_liste element = function
        | []                ->
                myprint myverb "Appel a 'suppri_liste' avec une liste vide.";
                [];
        | el :: sliste        ->
                myprint myverb "Appel a 'suppri_liste' avec une liste non vide.";
                match (el = element) with
                |true                ->
                        myprint myverb "\tElement trouvé et supprimé.";
                        (sliste); 

(** On ne l'enlève qu'une fois ! *)


                |false                ->
                        myprint myverb "\tElement non trouvé et non supprimé.";
                        el :: (suppri_liste element sliste)