(define (trier-vecteur V)
  (let* ((VL (vector-length V))
	 (T (arbre:creer VL)))
     (do ((i 0 (+ i 1)))
	 ((>= i VL))
	 (arbre:ajoute! T (vector-ref V i)))
     (do ((i (- VL 1) (- i 1)))
	 ((< i 0) V)
	 (vector-set! V i (arbre:extraire T)))))