Comparer prix d'apr2s reference

 =SI(L2=MIN(SI($P$2:$P$12=P2;$L$2:$L$12;""));1;"")

Sub Fournisseur_Moins_Disant()
Dim i As Long, dLigne As Long
Dim d As Object, c As Variant
    Set d = CreateObject("Scripting.Dictionary")
        For i = 2 To 12
        If Not d.Exists(Cells(i, 16).Value) Then
            d(Cells(i, 16).Value) = Cells(i, 12).Value
        Else:
            If Cells(i, 12).Value < d(Cells(i, 16).Value) Then d(Cells(i, 16).Value) = Cells(i, 12).Value
        End If
        Next i
        For i = 2 To 12
        If Cells(i, 12).Value = d(Cells(i, 16).Value) Then Cells(i, 3).Value = 1
        Next i
End Sub

 =SI(ET(L2=MIN(SI($P$2:$P$12=P2;$L$2:$L$12;""));NB.SI($P$2:$P$12;P2)>1);1;"")