Déplace le Viewport en X,Y
procedure ChangeViewportColLig(AViewportCol: integer; AViewportLig: integer)