AUJOURDHUI() pouvant $être remplacé par une adresse de cellule dans laquelle vous placez la date de départ.
crdlmnt
Maurice
Bonjour
je supose par macro
Sub Macro4()
'29 mois et 7 semaines
Annee = 2015
Mois = 1
Jour = 1
'
MaDate = DateSerial(Annee, Mois, Jour)
MsgBox MaDate
MaDate = DateSerial(Annee, Mois + 29, Jour + (7 * 7))
MsgBox MaDate
End Sub