XL 2010 Calcul plusieurs ans mois jours

Bonjour,

j'aimerai savoir s'il y a une possibilité pour calculer plusieurs résultats année-mois-jours.

J'avais eu une macro mais étant très novice en vba, je n'arrive pas à transposer sur mon fichier "calcul"
Je joins mon fichier et la macro

Module1:

Option Explicit

Dim tablo
Dim adrD, adrF, lnD&, derLn&, lnF&, colD&, colF&, Deb As Range, Fin As Range
Dim i&, nom$, nbrJ, nbrJt&


Sub Total()

nom = Range("A5")
lnD = 5
derLn = Range("D" & Rows.Count).End(xlUp).Row

'Tableau fictif avec dates butoirs en colonne E
tablo = Range("E1:E" & derLn)
For i = 5 To UBound(tablo, 1)
If tablo(i, 1) > DateSerial(Range("G2"), 12, 31) Then
tablo(i, 1) = DateSerial(Range("G2"), 12, 31)
End If
Next i

'Suite du travail
For i = lnD To derLn
If Range("A" & i) = nom And i <> derLn Then

nbrJ = tablo(i, 1) - Range("D" & i)

ElseIf Range("A" & i) = "" Then
nbrJ = nbrJ + tablo(i, 1) - Range("D" & i)
ElseIf Range("A" & i) = nom And i = derLn Then

Range("H" & i) = tablo(i, 1)
Call dteS

Else
Range("H" & lnD) = Range("D" & lnD) + nbrJ
Call dteS
nom = Range("A" & i)
lnD = i
i = i - 1
End If
Next i
Range("H5:H" & derLn).ClearContents
Range("G4").Select
End Sub


Sub dteS()
adrD = Range("D" & lnD).Address
adrF = Range("H" & lnD).Address
Range("G" & lnD) = Evaluate("=DATEDIF(" & adrD & "," & adrF & ",""y"")&""an(s)-""&DATEDIF(" & adrD _
& "," & adrF & ",""ym"") & ""mois-""&DATEDIF(" & adrD & "," & adrF & ",""md"")&""jour(s)""")
End Sub

Module2:


Sub Macro2()
'
' Macro2 Macro
'

'
ActiveCell.FormulaR1C1 = _
"=DATEDIF(R5C4,R7C5,""y"")&""an(s)-""&DATEDIF(R5C4,R7C5,""m"")&""mois-""&DATEDIF(R5C4,R7C5,""md"")&""jour(s)"""
Range("H5").Select
End Sub