Bonsoir Greg,
essaies ceci dans la macro:
Application.screenupdating=false 'pour accélérer VBA
For i = 2 To 10000
If Cells(i, 1).Value = "" Then
Exit For
End If
If Application.CountA(Range(Cells(i, 2), Cells(i, 8))) > 2 Then
Selection.EntireRow.Delete Shift:=xlUp
i = i - 1
End If
etc.
CountA est la traduction de nbval; si tu tiens à NBSI écris COUNTIF
A+
Michel