Problème VBA

Bonjour,

Je fais face à un petit soucis sur VBA, en effet j'essaye de tirer à partir d'une date que je rentre dans un userform, l'âge de la personne en fonction de la date d'aujourd'hui. Pour cela j'utilise la formule ci-dessous, je vous joins aussi mon fichier sur lequel je travaille. Le userform utilisé est le 3 et l'onglet c'est "year". Merci d'avance pour votre aide.

Private Sub CommandButton1_Click()

Dim dernièreLigne As Integer
dernièreLigne = Cells(65536, 1).End(xlUp).Row + 1

Dim i As Integer
For i = 2 To dernièreLigne Step 1

If TextBox1 <> "" Then
Cells(i, 1) = TextBox1
End If

If Cells(i, 1) = TextBox1 Then
Cells(i, 2) = (Date - CDate(TextBox1) / 365)
End If

Next

Unload Me

End Sub