Sub gris()
Range("Z7:BH26").Select
With Selection.Interior
.ColorIndex = 48
.Pattern = xlSolid
End With
Range("Z7:AC26,AT7:AW26,AM7:AP26").Select
Range("AM7").Activate
Selection.SpecialCells(xlCellTypeConstants, 2).Select
Selection.Interior.ColorIndex = xlNone
Range("AD7:AL26,AQ7:AS26,AX7:BH26").Select
Range("AX7").Activate
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.Interior.ColorIndex = xlNone
End Sub