Bonjour,
Voici une autre solution
Sub essai()
date1 = "12/20/2003"
pos1 = InStr(date1, "/")
m = Mid(date1, 1, pos1 - 1)
pos2 = InStr(pos1 + 1, date1, "/")
j = Mid(date1, pos1 + 1, pos2 - pos1 - 1)
date2 = j & "/" & m & "/" & Mid(date1, pos2 + 1)
End Sub