Salut,

Avec quelque chose comme cela :

DateActuelle = date(CDateToISO( Date ))
if Day(DateActuelle) >= 26 then
msgbox "Bonjour ....... à renvoyer le tableau avant le 04/" &...