Private Sub CommandButton1_Click()
j = Array("", "LUNDI", "MARDI", "MERCREDI", "JEUDI", "VENDREDI", "SAMEDI", "DIMANCHE")
m = Array("", "JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE")
'TextBox2 = TextBox1.Value
'TextBox2 = j(Day(TextBox1.Value)) & " " & Day(TextBox1.Value) & " " & m(Month(TextBox1.Value)) & " " & Year(TextBox1.Value)
TextBox2 = UCase(Format(CDate(TextBox1), "dddd dd mmmm yyyy"))
End Sub