Calculer l'âge depuis une date de naissance dans une macro

Bonjour,

Je voudrais pouvoir transformer sur word, par une simple macro, une date
de naissance saisie dans le texte par l'âge correspondant.

Je coince encore. Lorsque je contrôle, l'âge affiché ne change pas au
jour près, lorsque je saisis successivement des dates de naissance
proches de la date du jour (Date).

Ci-dessous ma macro, dans son état actuel ... :

Sub AGE()
' Age Macro
' Macro enregistrée le 30/04/2006
' Sélectionne une date qu'on vient de saisir dans le texte
' (10 caractères) place le contenu dans Datenaiss
Selection.MoveLeft Unit:=wdCharacter, Count:=10, Extend:=wdExtend
Dim DateNaiss As Date
Dim AgePat As Variant
DateNaiss = Selection
AgePat = DateDiff("yy", DateNaiss, Now)
MsgBox (AgePat)

' Suit ci-dessous la suite du projet qui inscrira l'âge
' Efface la date de naissance dans le texte et la remplace
' par l'âge calculé
' Delete.Selection
' ReplaceSelection = True
' Selection.TypeText (AgePat)
End Sub

Merci d'avance pour toute contribution.
Bien cordialement.