Temps de calcul

Bonjour,
J’aimerai qu’un compteur comptabilise le temps de calcul de la macro. J’ai essayé mais le résultat n’est pas terrible. !!!
Je joins le code

Merci par avance


Sub Macrotest2()
Range("B1").Value = "Je bosse"
Range("b1").Font.Color = vbRed
Range("c2").Value = Hour(Time)
Range("d2").Value = Minute(Time)
Range("e2").Value = Second(Time)

Dim X As Long
For X = 1 To 60
Range("M17").FormulaR1C1 = "=cos(RC[-11]/R" & X & "C24)+SIN(RC[-11]/R" & X & "C25)"
Range("M17").AutoFill Destination:=Range("M17:V17"), Type:=xlFillDefault
Range("M17:V17").AutoFill Destination:=Range("M17:V106"), Type:=xlFillDefault

Range("M12:V12").Copy
Range("AA" & X).PasteSpecial Paste:=xlPasteValues
Next X

Range("c3").Value = Hour(Time)
Range("d3").Value = Minute(Time)
Range("e3").Value = Second(Time)
Range("b1").Font.Color = vbGreen
Range("b1").Value = "J'ai fini !"

End Sub[/I][/COLOR]