VBA: 2.Problème affichage compagnon office

Bonjour,

Petit problème en VBA:
J'ai créé une petite macro pour afficher le compagnon office à une certaine heure.
Un message d'erreur apparaît si je ne suis plus sur Excel au moment de l'execution. Ca bug sur le fait de montrer le texte délivré par le compagnon.

J'ai donc mis en place une condition. Problème: Excel semble vouloir executer la ligne .show même si Excel.application.visible= false

****Vous pouvez tester, vous avez 5 secondes pour aller sur word par exemple

MERCI


Sub GO()

Application.Wait Now + TimeValue("00:00:05")

assistant.Visible = True

If Excel.Application.Visible = False Then
Else

With assistant.NewBalloon
.BalloonType = msoBalloonTypeNumbers
.Icon = msoIconTip
.Button = msoButtonSetOK
.Heading = "Il est 7h55, merci de bien vouloir:"
.Labels(1).Text = "ARCHIVER"
.Labels(2).Text = "IMPRIMER"
.Labels(3).Text = "passer une bonne journée :-)"
.Show
End With
End If
End Sub