Bonjour à tous,
un essai par fonction personnalisée:
Dans un module standard :
Function Comt_Un(Plage)
Dim Cpt As Long, Encours As Boolean, Cel As Range
For Each Cel In Plage
If Cel.Value = 1 And Encours = False Then
Encours = True
Cpt = Cpt + 1
End If
If Cel.Value = 0 Then Encours = False
Next
Comt_Un = Cpt
End Function
Dans une cellule :
=Comt_Un(C3:C29)
C3:C29 étant la plage contenant les 0 et 1.
A+