afficher un message d'attente en attendant la fin d'une macro

[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]