Sub test()
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & ".......xlsm" 'chemin à préciser
Windows("........xlsm").Activate
Sheets("base_facture").Select
des = Sheets("facture").Cells(Range("d65536").End(xlUp).Row + 1, 1).Address
Windows(ThisWorkbook.Name).Activate
Sheets("facture").Range("K3").Copy Workbooks("........xlsm").Sheets("base_facture").Range(des)
Sheets("facture").Range("K37").Copy Workbooks("..........xlsm").Sheets("base_facture").Range(des).Offset(0, 4)
Application.DisplayAlerts = False
Workbooks("..........xlsm").Save
Windows(".........xlsm").Close
ThisWorkbook.Save
Application.DisplayAlerts = True
End Sub