Userform + format now +mise à jour auto d'un textbox ne marche pas...

Bonjour,

Je cherche à ouvrir un userform en insérant automatiquement la date du jour au format jj.mm.aaaa

J'ai essayé ceci, qui ne fonctionne pas (voir exemple annexé) :

Option Explicit
Dim Vazy As Date

Private Sub UserForm_Initialize()
Vazy = Format(Now, "jj/mm/aaaa")
TextBoxDate.Value = Vazy
End Sub


Private Sub CommandButtonOK_Click()

Sheets("Test_Date").Range("A1").Value = Vazy
Sheets("Test_Date").Range("A2").Value = Label1.Caption
End Sub


Qu'ai-je fait de faux ?


Merci d'avance pour vos lumières (Chez moi, il fait nuit...)