c'est quand même plus sumple en vba....
Sub ColS()
a = Cells(1, 8)
For R = 4 To a
'---------1ère condition---------=SI(P4<R4;"Vente";"")
If Cells(R, 16) < Cells(R, 18) Then
Cells(R, 19) = "vente"
'-------------------deuxième condition----------=SI(O4<R4;"Vente";"")
ElseIf Cells(R, 15) < Cells(R, 18) Then
Cells(R, 19) = "vente"
'--------------troisième condition------------=SI(OU(O4<R4;P4<R4);"Vente";"")
ElseIf Cells(R, 15) < Cells(R, 18) Or Cells(R, 16) < Cells(R, 18) Then 'AF=32
Cells(R, 19) = "vente"
End If
Next
End Sub