Date vba

Bonjour,

j'ai un petit soucis au niveau de mes dates; dans une colonne de mon fichier excel j'ai toute les dates de naissance, ce que je souhaite, c'est juste récupérer l'année de naissance. Mes cellules sont bien au format date, mais lorsque je récupère avec la fonction " Year()" l'année de la date, il me retourne une date en 1905, alors que je ne fais pas de calcul et la date entrée est une date en 2004, je ne comprend absolument pas, je vous fournit le code

Private Sub boutonagetest_Click()

Dim annee As Date
Dim anneenaiss As Date


Dim i As Integer
i = 4
Dim j As Integer
j = 1
Dim valeur As Integer


While ThisWorkbook.Sheets("Mois 1").Range("E" & i).Value <> ""
    If ThisWorkbook.Sheets("Mois 1").Range("B" & i).Value <> "" Then
        annee = ThisWorkbook.Sheets("Mois 1").Range("B" & i).Value
        anneenaiss = Year(annee)
        ThisWorkbook.Sheets("Feuil1").Range("A" & j).Value = anneenaiss
        j = j + 1
    End If
    i = i + 1

Wend

End Sub