For x = 0 To 4
dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
Next x
For x = 1 To 4
dest.Value = Format((Me.Controls("TextBox1").Value), "dd/mm/yyyy;@")
dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
Next x
For x = 1 To 4
dest.Value = Format((Me.Controls("TextBox1").Value), "dd/mm/yyyy;@")
dest.NumberFormat = "dd/mm/yyyy;@"
dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
Next x
Et en colonne A de la feuil2 formatage personalisé (aaaa/mm/jj) et lorsque je sélectionne la combo1 la date se remet au format français (jj/mm/aaaa).For x = 1 To 4
dest.Value = Format((Me.Controls("TextBox1").Value), "yyyy/mm/dd;@")
dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
Next x
dest.Offset(0,1).Value = Format(Month(Textbox1) & "/" & Day(Textbox1) & "/" & Year(TextBox1), "mm/dd/yyyy")
With dest
.Value = Format((Me.Controls("TextBox1").Value), "yyyy/mm/dd;@")
For x = 1 To 4
.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
Next x
End With