Sub a()
Dim r As Range
Set r = [A1]: r = "16/05/2017 à 23:00"
part1 = Format(r, "dd/mm/yyyy")
MsgBox part1
part2 = Format(r, "hh:nn:ss")
MsgBox part2
'par contre avec une vraie date, ok
r.Clear: r = Now
part1 = Format(r, "dd/mm/yyyy")
MsgBox part1
part2 = Format(r, "hh:nn:ss") & "|" & Format(r, "hh:mm:ss")
MsgBox part2
End Sub