Sub arctique()
Dim wA As Workbook, wB As Workbook
Set wA = Thisworkbook
Set wB = Workbooks.Open("D:\Gestion AHI\conteneur\Les_conteneurs.xlsm") 'adapter l'extension si besoin
wA.Sheets("conteneur").Range("A2:H160").Copy wB.Sheets("conteneur (1)").Range("A22")
wB.Close True
End Sub