Sub repart()
Dim tablo As Variant, N As Integer, i As Integer, j As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
tablo = Sheets("EINTCM").Range("B2").CurrentRegion
N = 0
For i = 2 To UBound(tablo)
For j = i - N To i - 1
Cells(j, 13) = tablo(i, 13) / N
Cells(j, 22) = tablo(i, 22) / N
Cells(j, 23) = tablo(i, 23) / N
Cells(j, 24) = tablo(i, 24) / N
Cells(j, 25) = tablo(i, 25) / N
Next j
[B]'là, pour un seul 7[/B]
N = N + 1
Next i
'ici, si plusieurs cas 7 se présentent sinon dans la première boucle
For i = 2 To UBound(tablo)[B]
If tablo(i, 3) = 7 Then
Cells(i, 13) = 0
Cells(i, 22) = 0
Cells(i, 23) = 0
Cells(i, 24) = 0
Cells(i, 25) = 0
End If
[/B] Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub