With Sheets(Onglet)
Tablo = .Range("B1:J15")
Tablo2 = .Range("C20:C53")
Tablo3 = .Range("G20:G53")
Tablo4 = .Range("B55:H63")
Tablo5 = .Range("C83:C116")
Tablo6 = .Range("G83:G116")
Tablo7 = .Range("B118:H126")
'Partie non fontionnelle
val1 = [J58].Value
val2 = [J121].Value
End With
ActiveWorkbook.Close False
' Classeur et Feuille dans lesquels il faut importer et coller les données
With ActiveSheet
.Range("B1").Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
.Range("C20").Resize(UBound(Tablo2, 1), UBound(Tablo2, 2)) = Tablo2
.Range("G20").Resize(UBound(Tablo3, 1), UBound(Tablo3, 2)) = Tablo3
.Range("B55").Resize(UBound(Tablo4, 1), UBound(Tablo4, 2)) = Tablo4
.Range("C83").Resize(UBound(Tablo5, 1), UBound(Tablo5, 2)) = Tablo5
.Range("G83").Resize(UBound(Tablo6, 1), UBound(Tablo6, 2)) = Tablo6
.Range("B118").Resize(UBound(Tablo7, 1), UBound(Tablo7, 2)) = Tablo7
.Range("B1").Select
'Partie non fontionnelle
.[J58].Value = val1
.[J121].Value = val2
End With