XL 2013 Calculer l'age automatiquement

'Convertir la date
Private Sub TextBox1_AfterUpdate()
Application.EnableEvents = False
  TextBox1 = Format(CDate(TextBox1), "dd mmmm yyyy")
  
  ' lignes ajoutées ----------------------------------------
    TextBox2 = DateDiff("yyyy", CDate(TextBox1), Date) & " ans"
    Label4 = DateDiff("yyyy", CDate(TextBox1), Date) & " ans"
 ' -----------------------------------------------------------
 
Application.EnableEvents = True
End Sub

Private Sub TextBox1_AfterUpdate() 
   Application.EnableEvents = False
    TextBox1 = Format(CDate(TextBox1), "dd mmmm yyyy")
    Label4.Caption = DateDiff("yyyy", CDate(TextBox1), Date) & " ans"
    Application.EnableEvents = True
End Sub

Private Sub TextBox1_Change()
    Dim Valeur As Byte
    TextBox1.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
    Valeur = Len(TextBox1)
    If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/"
    
    If Len(TextBox1) = 10 Then
        Application.EnableEvents = False
     TextBox1 = Format(CDate(TextBox1), "dd mmmm yyyy")
     Label4.Caption = DateDiff("yyyy", CDate(TextBox1), Date) & " ans"
     Application.EnableEvents = True
    End If

End Sub