Copier donnée onglet masqué rapidement

Bonjour,

j'ai un fichier A et un fichier B. Dans le fichier A je lance une macro qui ouvre, affiche, copie, et masque un onglet du fichier B pour le copier dans le fichier A.

La macro fonctionne, mais je veux optimiser cette partie. Celle qui affiche, copie, et masque

Sheets("data").Visible = True
Sheets("data").Select
Cells.Select
Selection.Copy
Sheets("data").Visible = False

Sheets(xsheet).Select
Cells(xrow, xcolumn).Select

Windows(nom1).Activate
Sheets("data").Visible = True
Sheets("data").Select
Cells.Select
ActiveSheet.Paste
Sheets("data").Visible = False

merci par avance

Bonsoir

Pour copier le contenu d'une feuille pas besoin de l'afficher

Pas de fichier pour tester alors ?????

A voir

  Sheets("data").Cells.Copy Workbooks(nom1).Sheets("data").Range("A1")

avec beaucoup de retard, désolé et merci beaucoup!!!!