Sub transfert()
Application.ScreenUpdating = False
With Sheets("Production")
Tprod = .Range("A13:K" & .Range("A65000").End(xlUp).Row).Value
End With
With Sheets("Imp")
Timp = .Range("A13:K" & .Range("A65000").End(xlUp).Row).Value
End With
Workbooks.Open ActiveWorkbook.Path & "\Global.xls" 'à adapter si répertoire différent
With Sheets("Production")
dl = .Range("A65000").End(xlUp).Row + 1
.Range(.Cells(dl, 1), .Cells(dl + UBound(Tprod, 1) - 1, 11)) = Tprod
End With
With Sheets("Imp")
dl = .Range("A65000").End(xlUp).Row + 1
.Range(.Cells(dl, 1), .Cells(dl + UBound(Timp, 1) - 1, 11)) = Timp
End With
ActiveWorkbook.Close True
Application.ScreenUpdating = True
End Sub