let printP_chrono_no mon_plateau =
        Graphics.set_window_title ("Projet Puzzle : resolution en cours depuis "^(Temps.temps_chrono ()));
        print_string ("\n  Temps courant : "^(Temps.temps_chrono ()))