Sans vraiment connaître les fonctions Excel qui feraient le travail de façon plus élégante, voici une solution qu'en tant qu'utilisateur de VB, je ferais...
Public Sub CompterlesUns()
'
Flag1 = 0
For x = 1 To 100
Flag = 0
If Range("E" & x).Value = 1 Then
Flag1 = Flag1 + 1
For y = x To 100
If Range("E" & y) = 1 Then
Flag = Flag + 1
Else
x = y
Range("J1").Offset(Flag1, 0) = Flag
Exit For
End If
Next
End If
Next
'
End Sub
J'ai essayé sur ta feuille, ça fonctionne nickel.
A+