Private Sub CommandButton1_Click()
Dim D As Date
D = CDate(Replace(TextBox1.Value, "-", "/"))
With Sheets("feuil2").Cells(2, 12)
.Value = D: .NumberFormat = "yyyy": End With
With Sheets("feuil3").Cells(8, 3)
.Value = D: .NumberFormat = "d mmmm yyyy": End With
End Sub