horodatage VBA - millisecondes

Public Function TimeInMS() As String

'The error is +/- 15 ms
TimeInMS = Strings.Format(Now, "dd-MMM-yyyy HH:nn:ss") & "." _ 
& Strings.Right(Strings.Format(Timer, "#0.00"), 2)

End Function
thaVBAGuy