Format de date

Bonjour,
Je n'arrive pas à mettre en forme une date saisie dans un formulaire :
Lors de la fermeture du formulaire les données saisies sot recopiées dans des cellules d'une feuille de calcul ; j'ai défini sur les cellules de ma feuille de calcul un format "Date" sous forme "jj/mm/aaaa" en colonne "E" et "H"
(voir code ci-dessous)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

Private Sub CB1_Click() Dim N_LIGNE_DEP As Long N_LIGNE_DEP = Sheets("Feuil1").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1   '------------------------------------------------------------------------------------------------ NUMERO = TB1.Value Sheets("Feuil1").Range("A" & N_LIGNE_DEP) = NUMERO   CLIENT = TB2.Value Sheets("Feuil1").Range("B" & N_LIGNE_DEP) = CLIENT   N_SEI = TB3.Value Sheets("Feuil1").Range("C" & N_LIGNE_DEP) = N_SEI   N_CDE_CLIENT = TB4.Value Sheets("Feuil1").Range("D" & N_LIGNE_DEP) = N_CDE_CLIENT   ' TB5 = FormatDateTime(Now, vbShortDate) DATE_ACHAT = TB5.Value Sheets("Feuil1").Range("E" & N_LIGNE_DEP) = DATE_ACHAT   COM = TB6.Value Sheets("Feuil1").Range("F" & N_LIGNE_DEP) = COM   ' TB7 = FormatDateTime(Now, vbShortDate) DELAI = TB7.Value Sheets("Feuil1").Range("G" & N_LIGNE_DEP) = DELAI   LANC = TB8.Value Sheets("Feuil1").Range("H" & N_LIGNE_DEP) = LANC   TYPE_ = TB9.Value Sheets("Feuil1").Range("I" & N_LIGNE_DEP) = TYPE_   QTE = TB10.Value Sheets("Feuil1").Range("J" & N_LIGNE_DEP) = QTE   OBS = TB11.Value Sheets("Feuil1").Range("K" & N_LIGNE_DEP) = OBS   Page = TB12.Value Sheets("Feuil1").Range("L" & N_LIGNE_DEP) = Page   Unload UserForm1 UserForm1.Show End Sub

---

Mais la date recopiée dans la cellule est au format "mm/jj/aaaa".
Je ne souhaite pas modifier les préférences régionales.
Quelqu'un a-t-il une solution ?
Merci d'avance

Code:

---

Format(Me.ControleDate,"yyyy-mm-dd")

---

Bonjour,
Merci de votre réponse mais a quel niveau de mon code je dois mettre le code?

Code:

---

Sheets("Feuil1").Range("E" & N_LIGNE_DEP) = format(DATE_ACHAT,"yyyy-mm-dd")

---