Bonjour Veve, le forum
essaie ce code, j'ai enlevé les sélections inutiles.
A+
Sub transfert
Windows("xxxxxx.xls").Activate
Range("F56:F58").Copy
Windows("yyyyyyy.xls").Activate
Sheets("Lu").Range("N57:O59").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Workbooks("xxxxxx.xls").Close false
End Sub