Public tbl(1 To 100, 1 To 5)
Dim t As Single
Sub memoattente()
'Application.OnTime Now + 0.000005, "memo"
'Application.OnTime Now, "memo"
Call SetTheTimer(1, "memo")
t = Timer
End Sub
Sub memo()
Dim uf As vbcomponent, i&
[A1].Value = Format(Timer - t, "0.000")