Dim i As Byte
Sub go()
i = 1
If Cells(i, 6) > 0 And Cells(i, 3) <> 0 And Cells(i, 5) = 0 And Cells(i, 1) = 0 And Cells(i, 7) = 1 Or Cells(i, 8) > 0 Then
Cells(2, 1) = "X"
End If
End Sub
Maintenant il faudrait savoir ce que tu attends comme test ?
Tout dépend comment tu veux que le OU fonctionne...
ça peut donner :
If (Cells(i, 6) > 0 And Cells(i, 3) <> 0 And Cells(i, 5) = 0 And Cells(i, 1) = 0 And Cells(i, 7) = 1) Or Cells(i, 8) > 0 Then
mais les parenthèses sont ici facultatives et donc on se retrouve avec ta deuxième formule donc ça ne doit pas être ce que tu veux
ou alors ça peut donner ça :
If Cells(i, 6) > 0 And Cells(i, 3) <> 0 And Cells(i, 5) = 0 And Cells(i, 1) = 0 And (Cells(i, 7) = 1 Or Cells(i, 8) > 0) Then