Mettre ma variable date au format "ddmmyyyy&q

Bonjour,

Voici un extrait de ma macro:

Dim t As String
Dim datecopie As Date
datecopie = inputbox("Entrez une date de comptabilisation des écritures dans Hibgest")
t = 1
Do While Cells(t, 1).Value <> ""
Cells(t, 5).Value = datecopie
t = t + 1
Loop

Je voudrais que le format de la date soit sous cette forme; "DDMMYYYY" par exemple la date 01/09/2007 soit au format 01092007 et en même temps je voudrais aussi pouvoir l'écrire sous cette forme "YYYYMMDD"
Merci par avance.