[COLOR="DarkSlateGray"]Sub attendre()
Dim s As String, t As Single, sel As Range
t = 5
s = "Attendez " & t & " secondes."
With Sheets("Feuil1")
Application.ScreenUpdating = False
.Shapes("Text Box 1").Visible = msoTrue
Set sel = Selection
.Shapes("Text Box 1").Select: Selection.Characters.Text = s
.Shapes("Text Box 1").Select: Selection.ShapeRange.ZOrder msoBringToFront
sel.Select
Application.ScreenUpdating = True
Application.Wait (Now + TimeValue(Format((t - 2) / 86400, "h:mm:ss")))
.Shapes("Text Box 1").Select: Selection.Characters.Text = "Terminé dans 2 secondes."
sel.Select
Application.Wait (Now + TimeValue("0:00:02"))
.Shapes("Text Box 1").Visible = msoFalse
End With
End Sub[/COLOR]