Temporiser

Public Sub Tempo(n100s As Long)

' Génère une attente de n centièmes secondes

Dim t As Single

t = Timer

Do While Timer - t < (n100s / 100)

DoEvents

Loop

End Sub