Sub tests_Dates()
Dim DtStrng As String
MsgBox "Version variable de type String" & vbLf & "Avec $A$1 au format Standard", 64
DtStrng = "01/05/2016"
Range("$A$1").NumberFormat = "General"
Range("$A$1").Value = DtStrng
MsgBox "Date inversée avec .Value", 64
Range("$A$1").Range("$A$1").FormulaLocal = DtStrng
MsgBox "Date corecte avec .FormulaLocal", 64
Dim DtDt As Date
MsgBox "Version variable de type Date" & vbLf & "Avec $A$2 au format Texte", 64
DtDt = "01/05/2016"
Range("$A$2").NumberFormat = "@"
Range("$A$2").Value = DtDt
MsgBox "Date inversée avec .Value", 64
Range("$A$2").FormulaLocal = DtDt
MsgBox "Date corecte avec .FormulaLocal", 64
End Sub