Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("Feuil1").Range("A1")
End Sub
Private Sub CommandButton1_Click()
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
Sheets("Feuil1").Range("A1") = CDate(DateAdd("d", 1, TextBox1.Value))
End Sub