Sub DerniereCelluleColoree()
Dim iCol As Long
Dim cnt As Long, iCell As Long
With Range("B3:BU22")
For iCol = .Columns.Count To 1 Step -1
For iCell = .Columns(iCol).Cells.Count To 1 Step -1
If .Cells(iCell, iCol).Interior.ColorIndex <> xlColorIndexNone Then
MsgBox .Cells(iCell, iCol).Address
Exit Sub
End If
Next
Next
End With
End Sub