[fred65200]

bonjour, en vrac

Sub ATester()
Dim i As Long

Sheets.Add After:=Sheets(Sheets.Count)
For i = 1 To 20
    ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", _
        Link:=False, DisplayAsIcon:=False, Left:=40, Top:=i * 30, _
        Width:=100, Height:=20
Next i
End Sub
Sub testPause()
Pause 0, 0, 10
MsgBox "Temps écoulé"
End Sub
Sub Pause(H As Integer, M As Integer, S As Integer)
waitTime = TimeSerial(Hour(Now) + H, Minute(Now) + M, Second(Now) + S)
While TimeSerial(Hour(Now), Minute(Now), Second(Now)) < waitTime
    DoEvents
Wend
End Sub

@+