Sub TEST()
Dim dat As String
[A1] = Date ' sans commentaire
[A2] = CStr(Date) 'ici on injecte le string d'une date (ca va déconner)
dat = Date 'date est donc un string
[a3] = Format(CStr(dat), "m/d/yy") 'ici on injecte avec format le string d'une date
[a4] = Format(Date, "m/d/yy") 'ici on injecte avec format une datequi n'est pas un string
MsgBox "Observez le résultat "
End Sub