Dim choix As Variant
Dim str As String
str = InputBox("Ecrire la date de la réunion au format jj/mm/aa puis cliquer sur OK", "DATE")
If str <> "" Then
Range(ActiveCell, ActiveCell.Offset(0,0)) = CDate(str)
With Selection
.Font.Bold = True
.HorizontalAlignment = xlCenter
.Font.ColorIndex = 10
End With
End If