Moé Kolisse, Jean-Eric, le forum,
La condition s'avérait sur d'autres cellules.
Une proposition de modification.
Public Sub TEST()
Dim n As Long, cpt As Double, I As Long
With ActiveSheet
n = .Cells(Rows.Count, 2).End(xlUp).Row
For I = 2 To n
If .Cells(I, 4) <= .Cells(I, 5) And .Cells(I, 4) <> .Cells(I, 6) Then cpt = cpt + 1
Next I
End With
MsgBox "Total : " & Format(cpt, "#,##0")
End Sub
LaCéline