Bonsoir Sophie,
Voilà un petit exemple sous Excel.
Pendant 10 secondes tu verras affiché dans la barre d'état "Merci de patienter"
sub tempo()
Application.StatusBar = "Merci de patienter"
Application.Wait Now + TimeValue("00:00:10")
Application.StatusBar = False
end sub