XL 2016 mise en pause d'une macro décalée.

Bonjour à tous.

voila, je souhaite après avoir appuyé sur un bouton cacher une image, attendre 5 secondes puis faire réapparaître l'image de nouveau.
Pour cela j'ai utilsé le code suivant:

Private Sub Effacer_Click()
Shapes("picture 3").Visible = msoFalse
Application.Wait Time + TimeSerial(0, 0, 5)
Shapes("picture 3").Visible = msoTrue
End Sub

Le problème c'est que quand je clique sur le bouton, mon image disparaît bien, mais APRES l'attente de 5 secondes et PAS AVANT. J'ai essayé avec la fonction Sleep, mais sans succés.
Quelqu'un saurait il me dire quelle erreur je fais svp?
Merci pour votre aide :=)
A+
Patrick.
en PJ je joins le petit fichier.