Problème de filtre par date

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