Sub ABSOLU()
Dim lig As Integer
For lig = 96 To 126
Cells(lig, 4).Formula = WorksheetFunction.Substitute(ActiveCell.Formula, "$D" & lig + 4, "$D$100")
Cells(lig, 4).Formula = WorksheetFunction.Substitute(ActiveCell.Formula, "$E" & lig + 4, "$E$100")
Cells(lig, 4).Formula = WorksheetFunction.Substitute(ActiveCell.Formula, "$F" & lig + 4, "$F$100")
Cells(lig, 4).Formula = WorksheetFunction.Substitute(ActiveCell.Formula, "$G" & lig + 4, "$G$100")
Cells(lig, 4).Formula = WorksheetFunction.Substitute(ActiveCell.Formula, "$J" & lig + 4, "$J$100")
Next lig
End Sub