Sub testTransfertDate()
Dim dbl As Double
Dim dt As Date
strDate = "12/01/2014"
dt = CDate(strDate)
dbl = CDbl(CDate(strDate))
'Conversion en type DATE avant le transfert
Cells(1, 1).NumberFormat = "m/d/yyyy"
Cells(1, 1).Value = CDate(strDate)
'NumberFormat = "m/d/yyyy" donne le format de date par défaut défini dans les paramètres régionaux de Windows
'Conversion en type DOUBLE avant le transfert
Cells(2, 1).NumberFormat = "m/d/yyyy"
Cells(2, 1).Value = CDbl(CDate(strDate))
'Test de Conversion en type STRING avant le transfert
Cells(3, 1).NumberFormat = "m/d/yyyy"
Cells(3, 1).Value = CStr(strDate)
If TypeName(Cells(3, 1).Value) <> "Date" Or CStr(Cells(3, 1).Value) <> CStr(strDate) Then
MsgBox "Le résultat obtenu n'est pas une date ou bien est une autre date"
End If
End Sub