Function age(dat1, Optional dat2)
If IsMissing(dat2) Then dat2 = Date
age = Evaluate("=DATEDIF(" & CLng(dat1) & "," & CLng(dat2) & ",""y"")& "" ans "" & DATEDIF(" & CLng(dat1) & "," & CLng(dat2) & ",""ym"") & "" mois "" & DATEDIF(" & CLng(dat1) & "," & CLng(dat2) & ",""md"")") & " jours"
End Function