Sub calcul()
Dim ok As Boolean
ok = True
For lig = 3 To 17
For col = 4 To Cells(lig, 1024).End(1).Column
If Cells(lig, col) <> "" Then
If Cells(lig, col) <> " " Then
If ok Then
sok = sok + Cells(lig, col)
Else
sthe = sthe + Cells(lig, col)
End If
ok = Not ok
End If
End If
Next
Cells(lig + 27, 1) = IIf(sok = 0, "", sok)
Cells(lig + 27, 2) = IIf(sthe = 0, "", sthe)
sok = 0: sthe = 0
Next
End Sub