Sub Générer()
Application.Calculation = xlCalculationManual
Range("cp2:cv100").Select
Selection.ClearContents
For i = 3 To Range("DS65535").End(xlUp).Row
Range(Cells(i, 121), Cells(i, 123)).Select
Selection.Copy
Range("D97").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Calculate
ArchToutLignEtq
Next i
End Sub