[/php]
Dim lgLig As Long
Dim lgCol As Long, lgColDeb As Long, lgColFin As Long
Dim intCellVide As Integer
Dim i as Long
For i = 1 To 500
lgLig = i
lgColDeb = 7
lgColFin = 53
intCellVide = 0
For lgCol = lgColDeb To lgColFin - 3
If Cells(lgLig, lgCol).Value = vbNullString Then
intCellVide = intCellVide + 1
If Cells(lgLig, lgCol + 1).Value = vbNullString And Cells(lgLig, lgCol + 2).Value = vbNullString Then
Range("B" & i).Interior.ColorIndex = 3
GoTo Fin
End If
End If
Next lgCol
Fin:
Next i