Function NbSgnNom(ByVal PlgDon As Range, ByVal Nom As String) As Long
Dim T(), S&, L&, CF&
CF = PlgDon.Columns.Count
T = PlgDon.Value
For L = UBound(T, 1) To 1 Step -1
If T(L, 1) = Nom Then
S = Sgn(T(L, CF)): If S * NbSgnNom < 0 Then Exit Function
NbSgnNom = NbSgnNom + S: End If: Next L
End Function