let faire cmd =
        match (Sys.command cmd) with
        | 0                        -> ();
        | n when (n <> 0)         -> raise (Error_Annule(n))