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