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