Function NbZeroAprèsDernier1(Plg As Range)
Dim dLig As Long, Lig As Long
Dim NbZero As Integer
' Permettre à la fonction de s'éxécuter après tout changement
Application.Volatile
' Initialisation
NbZero = 0
dLig = Cells(Rows.Count, Plg.Column).End(xlUp).Row
' Boucel sur les lignes en partant du bas
For Lig = dLig To 6 Step -1
' Si la cellule contien un zéro, la comptabilisé
If Cells(Lig, Plg.Column) = 0 Then
NbZero = NbZero + 1
Else ' Sinon on arrète de compter
NbZeroAprèsDernier1 = NbZero
Exit For
End If
Next Lig
End Function