macro procedures compte