Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode <> 13 Then Exit Sub
If IsDate(TextBox1) Then
DiffAn = Year(Date) - Year(TextBox1)
Label3.Caption = DiffAn
If DiffAn <= 2 Then
Sheets("Feuil2").Select
Else
Sheets("Feuil3").Select
End If
End If
End Sub