Bonjour le FORUM
Je sollicite votre aide de nouveau
j'ai place ceci dans workbook
Function Age(d As Date) As String
Dim aa As Date, a&, m&, s&, j&
aa = Now()
RMMoteurs("contact!ad7:ad") = "18-04-2014"
If (d > 60) * (d <= aa) Then
Do While DateSerial(Year(d) + a + 1, Month(d)...