let convertir_temps s =
        let si = ref (1000. *. s) in
        let heu = floor (!si /. 3600000.) in
        si := !si -. (3600000. *. heu);
        let min = floor (!si /. 60000.) in
        si := !si -. (60000. *. min);
        let sec = floor (!si /. 1000.) in
        si := !si -. (1000. *. sec);
        let msec = floor (!si) in
        { heure = int_of_float heu; minute = int_of_float min; seconde = int_of_float sec; milisec = int_of_float msec}