Sub test3()
Dim dat As String
dat = InputBox("Ecrire la date au format jj/mm/aa puis cliquer sur OK", "DATE")
If dat = "" Then GoTo 1
Range("B5").Value = CDate(dat)
GoTo Fin
1: MsgBox "Traitement désiré si annulation"
Fin: MsgBox "Laisser vide si simplement terminé ou autre traitement désiré avec une condition ou l'autre"
End Sub