let actualise_taille ~s ~n ~m () =
        let new_taille_x = 20 + (2*s+4)*m in
        let new_taille_y = 20 + (2*s+4)*n in
        Graphics.resize_window new_taille_x new_taille_y