MsgBox date anniversaire

Bonjour le forum

Je voudrais ajouter une seconde ligne dans la msgBox me donnant l'âge

J'arrive pas à trouver la solution.

Merci

Bonjour

A tester

Private Sub Workbook_Open()
Dim Cell As Range
For Each Cell In Range("A2:A" & Range("A2").End(xlDown).Row)
DateAnniversaire = CDate(Day(Cell.Offset(0, 7)) & "/" & Month(Cell.Offset(0, 7)) & "/" & Year(Date))
If DateAnniversaire = Date Then
MsgBox "Anniversaire De : " & Cell & vbLf & DateDiff("yyyy", Cell.Offset(0, 7), Date) & " ans"
End If
Next

End Sub

Une fois de plus merci Banzai64

Bonne nuit

A+