Sub RossoVerde() lr = Range("L" & Rows.Count).End(xlUp).Row If lr = 1 Then Exit Sub r = 2 v = 2 For j = 2 To lr If Cells(j, 12).DisplayFormat.Interior.Color = 255 Then Cells(r, 20) = Cells(j, 12) Cells(r, 21) = Cells(j, 13) Range(Cells(r, 20), Cells(r, 21)).Interior.Color = 255 r = r + 1 Else Cells(v, 22) = Cells(j, 12) Cells(v, 23) = Cells(j, 13) Range(Cells(v, 22), Cells(v, 23)).Interior.Color = 5296274 v = v + 1 End If Next End Sub