Option Explicit
Sub Copier_Donnees()
Dim Chemin As String, WbSource As Workbook, WbDest As Workbook
Application.ScreenUpdating = False
Chemin = ThisWorkbook.Path & "\classeur fermé.xlsm"
Set WbDest = ThisWorkbook
Set WbSource = Workbooks.Open(Chemin)
With WbSource
.ActiveSheet.Range("a2:ac22").Copy WbDest.ActiveSheet.Range("a2")
End With
WbDest.ActiveSheet.Range("H:AC").Columns.AutoFit
Application.DisplayAlerts = False
WbDest.Save
WbSource.Close True
End Sub