[?] Plot y=3xy - xy^2 + c?

I know that I can break this up into parts and plot them individually, but I’m wondering if there is a way to just plot this without having to do that?

In this case c is a integer from -10..10:

ContourPlot[y == 3 x y - x y^2 + 1, {x, -5, 5}, {y, -4, 7}, FrameLabel -> Automatic](*If c=1 *)

ContourPlot[Evaluate@Table[y == 3 x y - x y^2 + c, {c, -10, 10}], {x, -5, 5}, {y, -4, 7}, FrameLabel -> Automatic]

Regards M.I.

Thank you very much, M.I.!