i = 1
J = 1
Do While Cells(i, J) <> "DISPONIBLE"
If J < 10 Then
J = J + 1
Else
J = 1
i = i + 1
End If
Loop
Do While Cells(i, J) <> ""
If Left(Cells(i, 1), 5) <> "Total" Then
If Cells(i, J).Value < 0 Then
Cells(i, J).Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 255
End With
Else
Cells(i, J).Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End If
i = i + 1
Loop