Sub Macro1()
Dim d As String 'déclare la variable d
Dim da As Date 'déclare la variable da
d = InputBox("Tapez la date.") 'définit la variable d
da = CDate(d) 'définit la variable da
Sheets("Ao").Range("D2").Value = Format(da, "dd-mmm") 'place la date au bon format dans D2 de l'onglet "Ao"
End Sub