Bonsoir
ci joint un code pour realiser une copie de feuille
Public Sub Botablo()
'Pour copier une feuille dans une autre avec un array
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim Tablo As Variant, Z As Long, Dlign As Long
Z = 20000: Dlign = 112
Feuil1.Activate: Cells(1, 1).Select
Dlign = Range('A65536').End(xlUp).Row
Tablo = ActiveSheet.Cells(1, 1).Resize(Dlign, Z).Value
Feuil2.Cells(1, 1).Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
' Feuil2.Activate: Cells(1, 1).Select
erase tablo
Application.Calculation = xlCalculationAutomatic
End Sub