Bizarre

Bonjour à tous,

J'ai le code suivant pour certain champs dans mon userform :
Private Sub userForm_Initialize()
derligne = Sheets(1).Range("D65000").End(xlUp).Row
NumSaisie.Value = Sheets(1).Cells(derligne, 4).Value + 1
Date1 = Now
Date1 = Format(Date1, "dd/mm/yyyy")
Heure1 = Now
Heure1 = Format(Heure1, "hh:mm")
Date2 = Now
Date2 = Format(Date2, "dd/mm/yyyy")
date3 = Now + 1
date3 = Format(date3, "dd/mm/yyyy")
Date4 = Now + 1
Date4 = Format(Date4, "dd/mm/yyyy")
End Sub


Ce qui est bizarre, c'est au lieu de mettre 06/05/08 il me saisie 05/06/08 ???

quelqu'un peux m'aider ?

A+

MAnu