' essai seulement pour Année/Mois/Jour
' dates de naissances lig 3 à 9 à adapter!
Public Sub CalcEcartDate()
Dim DatEnCours As Date, DatNaissance As Date
DatEnCours = Cells(1, 1)
For Lig = 3 To 9
DatNaissance = Cells(Lig, 1)
Annee = Year(DatEnCours - DatNaissance) - 1900
Mois = Month(DatEnCours - DatNaissance) - 1
Jour = Day(DatEnCours - DatNaissance)
If Jour >= 31 Then Mois = Mois + 1: Jour = 0
If Mois >= 12 Then Annee = Annee + 1: Mois = 0
Cells(Lig, 2) = Annee
Cells(Lig, 3) = Mois
Cells(Lig, 4) = Jour
Next
End Sub