Amélioration visuelle Macro - Application.Workbooks.Open

Bonjour à tous,

J'ai une macro qui ouvre pas mal d'autres classeurs pour aller y mettre ou y chercher des informations. En général mon code ressemble à ceci:

'Définition du chemin
    Document = Liens.Range("B2")
    Extension = Liens.Range("C2")
    Chemin = Liens.Range("D2")
    Lien = Chemin & Document & Extension 'Lien pour la revue de contrat originale

    'Définition des objets
    Application.Visible = False 'Mettre True pour rendre Excel visible
    Application.WindowState = xlMinimized 'Ouvert en réduit
    Application.EnableEvents = False 'Désactive le lancement de la macro au démarrage
    Set ExcelDoc = Application.Workbooks.Open(Lien)  'Ouvre le document Excel
    With ExcelDoc
        .Sheets("Annexe").Range("A1") = M1_AR
        .Sheets("Annexe").Range("A2") = M1_Nom
        .Sheets("Annexe").Range("A3") = M1_Lien
    End With

    'Réinitialisation des objets
    Set ExcelDoc = Nothing

J'ai beau mettre

Application.Visible = False

et

Application.WindowState = xlMinimized

On voit toujours des fenêtre s'ouvrir et disparaitre, je ne trouve pas cela super esthétique, Y-a-t-il une solution ou c'est normal et incontournable ?

Cordialement.

Hello,

Application.ScreenUpdating = False

' Code ..... 

Application.ScreenUpdating = True

J'oublie tout le temps ces *** de ScreenUpdate . Cela fonctionne pour les Excel en effet, mais pas les PDF. Par contre mais j'ai trouvé une solution en verrouillant le projet pour affichage. Bon à faire quand on est sur qu'il n'y a plus de bug car c'est assez embêtant du coup