Sub test()
Dim wkb As Workbook
Dim wksf1 As Worksheet
Dim DN As Range
Dim DT As Range
Dim EC As Range
Dim EW As Range
Set wksf1 = Worksheets("Lectures Electriciens de Quart")
der = wksf1.Cells(65536, 1).End(xlUp).Row
For i = 6 To der
'somme plage
Set DN = wksf1.Range(wksf1.Cells(i, 115), wksf1.Cells(i, 117))
Set DT = wksf1.Range(wksf1.Cells(i, 121), wksf1.Cells(i, 123))
Set EC = wksf1.Range(wksf1.Cells(i, 128), wksf1.Cells(i, 132))
Set EW = wksf1.Range(wksf1.Cells(i, 150), wksf1.Cells(i, 152))
If wksf1.Cells(i, 115) <> "" Or wksf1.Cells(i, 116) <> "" Or wksf1.Cells(i, 117) <> "" Then
wksf1.Cells(i, 118) = "=Sum(" & DN.Address & ")"
End If
If wksf1.Cells(i, 121) <> "" Or wksf1.Cells(i, 122) <> "" Or wksf1.Cells(i, 123) <> "" Then
wksf1.Cells(i, 124) = "=Sum(" & DT.Address & ")"
End If
If wksf1.Cells(i, 128) <> "" Or wksf1.Cells(i, 129) <> "" Or wksf1.Cells(i, 130) <> "" _
Or wksf1.Cells(i, 131) <> "" Or wksf1.Cells(i, 132) <> "" Then
wksf1.Cells(i, 133) = "=Sum(" & EC.Address & ")"
End If
If wksf1.Cells(i, 150) <> "" Or wksf1.Cells(i, 151) <> "" Or wksf1.Cells(i, 152) <> "" Then
wksf1.Cells(i, 153) = "=Sum(" & EW.Address & ")"
End If
Set DN = Nothing
Set DT = Nothing
Set EC = Nothing
Set EW = Nothing
Next i
End Sub