Sub CalculTotaux()
Application.EnableEvents = False
With ActiveSheet
FinTab = .Range("E" & .Rows.Count).End(xlUp).Row + 1
'Remplissage Factures 1 a 4
For i = 9 To FinTab Step 13
FactureT1 = FactureT1 + .Cells(i, 8)
FactureT2 = FactureT2 + .Cells(i + 1, 8)
FactureT3 = FactureT3 + .Cells(i + 2, 8)
FactureT4 = FactureT4 + .Cells(i + 3, 8)
Next i
'Remplissage Loyers 1 a 4
For i = 13 To FinTab Step 13
LoyersT1 = LoyersT1 + .Cells(i, 8)
LoyersT2 = LoyersT2 + .Cells(i + 1, 8)
LoyersT3 = LoyersT3 + .Cells(i + 2, 8)
LoyersT4 = LoyersT4 + .Cells(i + 3, 8)
Next i
'Remplissage COPIES 1 a 4
For i = 17 To FinTab Step 13
CopiesT1 = CopiesT1 + .Cells(i, 8)
CopiesT2 = CopiesT2 + .Cells(i + 1, 8)
CopiesT3 = CopiesT3 + .Cells(i + 2, 8)
CopiesT4 = CopiesT4 + .Cells(i + 3, 8)
Next i
.Range("N3") = LoyersT1
.Range("O3") = LoyersT2
.Range("P3") = LoyersT3
.Range("Q3") = LoyersT4
.Range("N5") = CopiesT1
.Range("O5") = CopiesT2
.Range("P5") = CopiesT3
.Range("Q5") = CopiesT4
End With
Application.EnableEvents = True
End Sub