[VBA] Userform - Label ne s'actualise pas

Bonjour,
A chaque fois que je suis venu ici, j'ai toujours eu une solution a mon probleme ou au moins du soutien en programmation ou autre..
Je suis ultra novice en userform, je debut completement.
J'essaie de mettre en forme deux champs de dates avec calendrier (qui s'appelle DTPicker) et de faire afficher de maniere automatiquement, dans un label le nombre de nuits entre ces deux dates.

Il ne change que lorsque je "click" dessus mais ne change pas automatiquement :S
Il semble qu'il y ait une fonction ME.REPAINT ou USERFORM.REPAINT, mais ca ne change pas mon probleme.

Voila a quoi ressemble le userform que je veux mettre en place.

http://img190.imageshack.us/img190/8511/hotelo.jpg

Voila le code que j'ai mis:

Private Sub UserForm_Activate()

UserForm1.ComboBox2.AddItem ("Mr")
UserForm1.ComboBox2.AddItem ("Mme")
UserForm1.ComboBox2.AddItem ("Melle")
UserForm1.ComboBox2.AddItem ("Scté")

UserForm1.ComboBox1.AddItem ("Appart. No.0")
UserForm1.ComboBox1.AddItem ("Appart. No.1")
UserForm1.ComboBox1.AddItem ("Appart. No.2")
UserForm1.ComboBox1.AddItem ("Appart. No.3")
UserForm1.ComboBox1.AddItem ("Appart. No.4")
UserForm1.ComboBox1.AddItem ("Appart. No.5")
UserForm1.ComboBox1.AddItem ("Appart. No.6")
UserForm1.ComboBox1.AddItem ("Appart. No.7")

Label18 = DTPicker2 - DTPicker1

End Sub

Merci de bien vouloir m'aider, je ne sais plus trop comment faire.