Sub TransformerTexteEnDate()
Set dest = Cells(18, "F")
'd = InputBox("", "", "23/12/2014")
d = InputBox("", "", "12/23/2014")
If Not IsDate(d) Then
MsgBox d & vbCrLf & " n'est pas une date"
Else
'Modifier le format d'affichage
'm/d/yyyy est un Format de date spécial universel qui affiche toujours le format de date régional par défaut (Excel seulement)
dest.NumberFormat = "m/d/yyyy"
'ou dest.NumberFormat = "General"
'Il faut toujours mettre dans la cellule une valeur convertie en valeur de type Date
dest.Value = CDate(d)
'ou dest.Value = DateSerial(Year(d), Month(d), Day(d))
'ou dest.Value = DateValue(d)
If CStr(CDate(d)) <> CStr(d) Then
MsgBox d & " converti par CDate en " & vbCrLf & CDate(d)
End If
End If
End Sub