Pb savoir si un champ userform correpond au nom d'une feuille

Bonjour à tous,

je suis bloqué sur mon userform.

L'un de mes champs (t_date) doit afficher la date du jour (qui peut être modifiée manuellement). Je voudrais qu'un msgbox s'affiche si l'ANNEE du champ t_date correspond au nom d'une des feuilles de mon classeur. La date s'affiche bien mais j'ai un problème avec le msgbox:

'Affiche la date du jour

Textbox1.Value = Format(Now, "dd/mm/yyyy")

'Test si la page de l'année existe

If Right(t_date.Value, 4) <> sheet(ThisWorbook) Then

MsgBox ("Erreur l'année n'est pas créée")

End If

Merci d'avance,

Bonjour,

Une piste :

Dim Fe As Worksheet
Dim Existe As Boolean

Textbox1.Value = Format(Now, "dd/mm/yyyy")

For Each Fe In Worksheets

    If Right(t_date.Value, 4) = Fe.Name Then
    'If Year(CDate(t_date.Text)) = Fe.Name Then

        Existe = True
        Exit For

    End If

Next Fe

If Existe = False Then MsgBox ("Erreur, l'année n'est pas créée !")