Sub Test2()
MsgBox AvecDateHeuFr("3/13/2017 11:59:00 PM") & vbLf _
& AvecDateHeuFr("3/12/2017 11:59:00 PM")
End Sub
Function AvecDateHeuFr(ByVal S As String) As String
AvecDateHeuFr = """" & S & """ —› """ & Format(DateHeuFr(S), "dd/mm/yyyy hh:mm") & """."
End Function
Function DateHeuFr(ByVal DateHeuUSA As String) As Date
Dim P As Long, TD() As String
P = InStr(DateHeuUSA, " "): TD = Split(Left$(DateHeuUSA, P - 1), "/")
DateHeuFr = DateSerial(TD(2), TD(0), TD(1)) + TimeValue(Mid$(DateHeuUSA, P + 1))
End Function