Souci de comparaison de date

J'ai un petit souci de formule, à l'aide d'un USF quand je sélectionne une référence, j'ai 2 textboxatejour1 qui contient la date d'aujourd'hui, la Datejour2 qui contient une date aléatoire qui a été saisi sur une feuille. J'essaye de d'appliquer une VBA qui doit m'afficher un message " date expirée" si la date est égale ou inférieur à la date d'aujourd'hui. je peux ajouter une année suplémentaire. J’utilise cette formule:

Private Sub Datejour2_Change()
'----------------------------------------------------------
If DateJour1 >= Datejour2 Then
Confirm = MsgBox("Date expirée", _
vbQuestion + vbYesNo, "Message d'alerte")
'--------------
If Confirm = vbYes Then
TextBox4 = Date
TextBox5.Value = DateAdd("yyyy", 1, TextBox4)
Else

End If
'--------------
End If
'---------------------------------------------------------
End Sub

et cela ne marche pas et pourquoi? je ne sais pas, j'ai essayé plusieurs manière sans résultat et pour cela que je fais appelle au pro d'Excel en remerciant d'avance pour votre aide.

Cdt Poussy67