Calcul du temps déxécution d'une appli

Bonjour.

... à part le brave chronomètre de nos sportifs, je n'en vois pas !

Bonjour

quelque chose comme çà

Sub test()
Dim tdeb As Double, tfin As Double, tt As Double
tdeb = Timer
Call truc
Call machin
tfin = Timer
tt = tfin - tdeb
MsgBox "temps mis " & Format(tt, "0.00") & " s"
End Sub

Sub truc()
Dim k As Long, a As Double
For k = 1 To 10000000
  a = Sin(Rnd())
Next k
End Sub

Sub machin()
Dim k As Long, a As Double
For k = 1 To 10000000
  a = Sin(Rnd())
Next k
End Sub

Cdlmnt