Dim Source As Range
Application.Calculation = xlCalculationManual
Set Source = ActiveWorkbook.Worksheets("Recap").Cells
Workbooks.Open Filename:=ActiveWorkbook.Worksheets("Lexique").Range("F2").Value
Source.Copy Destination:=ActiveSheet.Cells(1, 1)
Application.Calculation = xlCalculationAutomatic