.[bk57].Value = Sheets("Archives").Cells(69, colcible5): .[bl57].Value = Sheets("Archives").Cells(70, colcible5): .[bm57].Value = Sheets("Archives").Cells(71, colcible5): _
.[bm62].Value = Sheets("Archives").Cells(72, colcible5): .[bm63].Value = Sheets("Archives").Cells(73, colcible5):
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = False
End With