Optimiser macro VBA

Jai ecris la macro suivante :

Sheets(Range("B6").Text).Visible = True
Sheets(Range("B6").Text).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Pricer").Range("J1").Text
ActiveSheet.Range("B4:B12").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Sheets(Range("B6").Text).Visible = xlSheetHidden
ActiveSheet.Range("M1:M2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveSheet.Range("M2") = "Data"
'Application.Run "BLPLinkReset"
'ActiveSheet.Shapes("CommandButton1").Select
'Selection.Delete


Sheets("Data").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Pricer").Range("J2").Text
ActiveSheet.Range("A1") = Sheets("Pricer").Range("J1").Text
ActiveSheet.Range("A2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveSheet.Visible = xlSheetHidden

Sheets("Pricer").Select

La macro marche bien, ceci dit je vois toutes les etapes se faire a lecran,
CAD copie d'un onglet renommer et masquer.
Ya til une ligne de script a rajouter pour ne pas que ceci aparaisse a l'ecran.
Merci