re
excuse j'ai pas tout lu je t'ais fais un code qui supprime si les 5 sont bleus
Bon je te donne un code modifié (la variable nbre compte le nombre de cellules bleu)
dim x as Integer, i as Integer, nbre as Single
For i = 1700 To 6 Step -1
nbre = 0
For x = 1 To 5
If Cells(i, x).Interior.ColorIndex = 5 Then nbre = nbre + 1
Next x
If nbre > 1 Then Rows(i).Delete
Next i
Ps : tu modifies cette ligne pour changer ta condition
If nbre > 1 Then Rows(i).Delete
là cela supprime si tu as plus d'une cellule de bleu
si tu veux que si il y en a 2 mais pas 3, 4 ou 5 tu mets
If nbre = 2 Then Rows(i).Delete
Bon courage
Pascal