utilise l'API GetTickCount qui offre une bonne précision et qui renvoie le temps écoulé en ms (mais les millisecondes restent approximatives)
Declare Function GetTickCount Lib "kernel32" () As Long
Sub Test()
Dim Debut As Long, Temps As Long
Debut = GetTickCount
'ici ta boucle d'attente
Temps = GetTickCount - Debut
MsgBox "Temps écoulé : " & Format(Temps / 1000, "0.00 s")
End Sub
Pas de macro mais ça fonctionne :
format personnalisé
hh:mm:ss,000
ou bien, si tu veux dépasser le seuil des 24 heures :
[hh]:mm:ss,000
Excel n'accepte pas plus de 3 chiffres après la virgule, pour les secondes, dans le format personnalisé.