Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("f1") = CDate(UserForm1.ListBox1.Value)
End Sub
Private Sub UserForm_Initialize()
Dim Plage As Range, Cellule As Range
Set Plage = Sheets("Feuil1").Range("Date")
For Each Cellule In Plage
ListBox1.AddItem Format(Cellule, "dd mmmm yyyy")
Next
End Sub