Option Explicit
Private Sub CommandButton1_Click()
Dim Lig As Long, LigDeb As Long, LigFin As Long
Dim Col As Long, ColDeb As Long, ColFin As Long
Dim CellVide As Integer
LigDeb = 3
LigFin = 20
For Lig = LigDeb To LigFin
ColDeb = 3
ColFin = 200
CellVide = 0
For Col = ColDeb To ColFin
If Cells(Lig, Col).Value = "x" Then
CellVide = CellVide + 1
If Cells(Lig, Col + 1).Value = "x" And Cells(Lig, Col + 12).Value = "x" Then
Cells(Lig, 2).Interior.ColorIndex = 4
Cells(Lig, 1) = "Bon"
GoTo Suivant
Else
Cells(Lig, 2).Interior.ColorIndex = 40
Cells(Lig, 1) = "Pas Bon"
End If
End If
Next Col
Suivant:
Next Lig
End Sub