Compresser un code

Bonjor,

Est-il possible de comprsser ce code?

Windows(fichOr).Activate
Sheets("Pour Copil").Select
Range("A1:L53").Select
Selection.Copy
Windows("COPIL.xlsm").Activate
Sheets("ACD").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Windows(fichOr).Close False
Range("A1").Select

Merci

Bonjour,

VBA ne se compresse pas mais peut s'enregistrer sous .xlsb

a+

Bonjour,

essaye ceci, si j'ai bien compris ta demande...

Workbooks("COPIL.xlsm").Sheets("ACD").Range("A1:L53").Value = Workbooks(fichOr).Sheets("Pour Copil").Range("A1:L53").Value

bonne journée

@+

Bonjour Pierrot93,

merci