Sub Totaux_v2()
Dim x As Integer, i As Integer
Dim g As Byte
x = 0
Worksheets('horaires').Activate
For g = 1 To 52 'boucle sur 52 semaines
For i = 9 + x To 20 + x
Cells(i, 18).Value = Cells(i, 4).Value + Cells(i, 6).Value + Cells(i, 8).Value + Cells(i, 10).Value + Cells(i, 12).Value + Cells(i, 14).Value + Cells(i, 16).Value
Next i
x = x + 35
Next g
End Sub