Bonjour,
Avec une fonction perso à mettre dans un module standard :
Function PoidsMax(Plage As Range, ValeurMax As Double) As Long
Dim Cel As Range
Dim I As Long
For Each Cel In Plage
If Cel.Value <> 0 Then
I = I + 1
If Cel.Value = ValeurMax Then
PoidsMax = I: Exit Function
End If
End If
Next Cel
End Function
et à utiliser de cette façon dans Excel : =PoidsMax(AN71:AN105;AN106)