Sub Rectangle79_Clic()
Application.ScreenUpdating = False
Dim wbA As Workbook, wbB As Workbook
Set wbA = ThisWorkbook
Set wbB = Workbooks.Open("F:\Direction\== Gestion Pole Habitat\Partagés avec tout le monde\TransfertPose.xlsx")
wbA.Sheets("Commandes").Range("A6:j500").Copy
==> wbB.Sheets("Feuil2").Range("A6")
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
wbB.Close True
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub