Public Function Nb1(Li As Range)
Dim i As Integer, R As Integer
Application.Volatile (False)
Nb1 = 0
R = Li.Row
If Cells(R, 7) = "" Then
Nb1 = ""
Else
For i = 1 To 50
If Cells(R, 15 + 3 * (i - 1)).Value > Cells(R, 16 + 3 * (i - 1)).Value Then
Nb1 = Nb1 + 1
End If
Next i
Nb1 = Nb1 / Cells(R, 7)
End If
End Function