For ligne = 161 To 74 Step -1
Range(Cells(ligne, 2), Cells(ligne, 43)).Select
Application.CutCopyMode = False
Selection.NumberFormat = "0.00"
Cells(ligne, 3).Select
Selection.NumberFormat = "0.0000"
Range(Cells(ligne - 71, 1), Cells(ligne, 43)).Select
Cells(ligne, 1).Activate
Selection.Copy
Cells(ligne - 72, 1).Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
ActiveWindow.SmallScroll Down:=71
Range(Cells(ligne, 2), Cells(ligne, 43)).ClearContents
Next ligne
ActiveWorkbook.Save