Sheets("S1").Select
Range("E2:BZ2000").Select
Selection.ClearContents
Application.Calculate
Workbooks.Open (C9)
Cells.Select
Range("A2").Activate
Selection.Copy
Windows(C2).Activate
Sheets("S1").Range("E2").Select
Selection.Paste <==========ICI
Application.DisplayAlerts = False
Workbooks(C9).Close False
Application.DisplayAlerts = True