Il y a un problème avec
Workbook.Activate
qui parfois n'affiche pas le classeur dans certaines conditions (non identifiées).
J'ai d'abord trouvé une solution avec:
Workbook.Activate
Workbook.Windows(1).Visible = True
Mais il semble que:
Windows(Workbook..Name).Activate
soit la meilleure solution.
Le fichier a été (encore) modifié en conséquence.