Sub Data_23()
'Condition : La valeur de la data_23 doit être >= data_50 + 2.1
Dim i As Long
For i = 2 To Range("W" & Rows.Count).End(xlUp).Row
Cells(i, 31) = IIf(CDec(Cells(i, 23)) >= CDec(Cells(i, 50)) + CDec(2.1), "", False)
Next i
End Sub
Sub Data_50()
'Condition : La valeur de la data_50 = data_48 + data_52
Dim i As Long
For i = 2 To Range("AX" & Rows.Count).End(xlUp).Row
Cells(i, 32) = IIf(CDec(Cells(i, 50)) = CDec(Cells(i, 48)) + CDec(Cells(i, 52)), "", False)
Next i
End Sub