Sub code2()
Dim Ligne As Long, Col As Long
For Col = 28 To 74
Cells(4, Col) = Cells(4, Col).Column - 27
Next
Cells(4, 74 + 1) = Application.Sum(Cells(4, 28).Resize(, 47))
End Sub
Sub code3()
Dim Ligne As Long, Col As Long
Col = 4
For Ligne = 28 To 74
Cells(Ligne, Col) = Cells(Ligne, Col).Row - 27
Next
Cells(Ligne, Col).Offset(0) = Application.Sum(Cells(28, Col).Resize(47))
End Sub