Dim maDate As Date Dim NextDate As Date ' La date de départ = maintenant Dim DernierJour As Integer maDate = Now ' Mais le 1er maDate = DateSerial(Year(maDate), Month(maDate), 1) ' La date du 1er du mois prochain NextDate = DateAdd("m", 1, maDate) ' Le dernier jour du mois de maDate DernierJour = Day(DateAdd("d", -1, NextDate))