let actualise_couleur ma_couleur k = function
                | Some p        ->
                        (match k with
                        | "bas"                -> ma_couleur := p.h; 
                        | "haut"        -> ma_couleur := p.b; 
                        | "gauche"        -> ma_couleur := p.d; 
                        | "droite"        -> ma_couleur := p.g;
                        | _                -> raise (Invalid_argument "actualise_couleur");
                        )
                | None                -> ()