Salut le Forum
Sousou modifie la macro comme ceci et tu auras seconde(s) d'ecrit
Sub maprocédure()
If compte > 1 Then
UserForm1.Caption = compte & " secondes"
Else
UserForm1.Caption = compte & " seconde"
End If
If compte = 0 Then
MsgBox "trop tard"
Exit Sub
End If
Application.OnTime Now + TimeValue("00:00:01"), procedure:="maProcédure", schedule:=état
compte = compte - 1
End Sub
Mytå