Format date

dans ce mprgramme tout simple

Sub dateeffet()

Date = InputBox(" entrer une date")

If Date = "" Then Exit Sub

Range("F12") = Date

End Sub

Quand je rentre la date 01/05/2008 par exemple

le cellule F12 m'afficeh 05/01/2008

P O U R Q U O I ? ,? ? ? ?

Merci de venir a ma rescousse

Bonjour

essai cela :

Sub dateeffet()
Date = InputBox(" entrer une date")
If Date = "" Then Exit Sub
Range("F12") = CDate(Date)

End Sub