Application.Calculation = xlCalculationManual
Sheets(NOMBASE).Range(Cells(6, 5), Cells(5 + LENSBASE, 5)).Copy
Sheets("COMPIL").Activate
Sheets("COMPIL").Cells(LTOTAL, 2).PasteSpecial Paste:=xlPasteValues
Application.Calculation = xlCalculationAutomatic