Option Explicit
Function NbZeroAprèsDernier1(ByVal Plg As Range) As Integer
Dim TDon(), L As Long
TDon = Plg.Value
For L = UBound(TDon, 1) To 1 Step -1
If Not IsEmpty(TDon(L, 1)) Then
If TDon(L, 1) = 0 Then
NbZeroAprèsDernier1 = NbZeroAprèsDernier1 + 1
Else
Exit Function: End If
End If
Next L
End Function