Salut,

je te propose ceci :



Set objShell = WScript.CreateObject("WScript.Shell")
i = 30
Do Until i = 0
Btn = objShell.Popup("Décompteur" & vbNewLine & vbNewLine & I & vbNewLine, 5, i,...