Bonjour,
pas ouvert ton fichier, mais regarde peut être du coté de la fonction "cdate", devrait résoudre ton souci...
bonne journée
@+
Sub essai()
Range("A1").ClearContents
Range("A1") = CDate(InputBox("Veuillez indiquer la date!", "BUDJET"))
End Sub