じゃ、Lastを加えて
RotateLeft[lst,Last[Flatten[Position[lst,Max[lst]]]]]
ということで