Dim deb As Single, derlig As Long, dercol As Long, plage As Range, derncell As Range
deb = Timer
With ActiveSheet
derlig = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
dercol = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
Application.ScreenUpdating = False
Set plage = Range(Cells(1, 1), Cells(derlig, dercol))
End With
With Worksheets("tremplin")
.Cells.ClearContents
.Range(plage.Address) = plage.Value
.UsedRange
Set derncell = .Cells.SpecialCells(xlCellTypeLastCell)
End With
MsgBox Timer - deb
MsgBox derncell.Row & vbCrLf & derncell.Column
Application.ScreenUpdating = True