MacroProcedure closeCompte