Fermeture de plusieurs classeurs

Bonjour !

A partir de Vb, j'ouvre plusieurs classeurs
et je veux que, lorsque l'utilisateur ferme l'appli, tous les classeurs
se ferment un à un en demandant confirmation
Cela se passe bien pour 1 classeur mais pour plusieurs, le message de demande de sauvegarde apparait bien mais la barre des taches correspondant au classeur en bas de l'écran, ne clignote pas.

Global WApp As Object

Set WApp = CreateObject('Excel.Application')
WApp.Visible = True
Set Wbk = WApp.Workbooks.Open(fichier, ReadOnly:=False, WriteResPassword:='OASIS', IgnoreReadOnlyRecommended:=False)

If Not WApp Is Nothing Then
Do Until WApp.ActiveWorkbook Is Nothing
'MsgBox WApp.ActiveWorkbook.Name
WApp.ActiveWorkbook.Close
Loop
WApp.Quit
Set WApp = Nothing
End If


Merci pour votre aide