let creer_plateau_vide ~printP (mon_instance:instance) =
        myprint myverb "Création de plateau vide ... a partir de l'instance argument.";
        let (ci, ni, mi, pi) = (mon_instance.ci, mon_instance.ni, mon_instance.mi, mon_instance.pi) in
        let mon_plateau = {
                 c = ci;
                 n = ni;
                 m = mi;
                 p = Array.create_matrix mi ni None;
                 v = false;
         } in
         printP mon_plateau;
         mon_plateau