Sub AlgoCalculer()
Dim sh As Sheets, cel As Range
For Each sh In ThisWorkbook.Sheets
'Call Effacer1 Macro
.Range("D13200").Select
ActiveWindow.SmallScroll Down:=-42
Selection.ClearContents
.Range("I14").Select
'Call Sub TrierLesEspacesEntreLes1()
.Range("D20013").ClearContents
For Each cel In .Range("B2:B1650")
If cel = 0 Then i = i + 1
If cel = 1 Then
.Range("D" & Range("D65535").End(xlUp).Row + 1) = i
i = 0
End If
Next cel
Next sh
End Sub