Comment faire pour adapter la taille de la barre de défilement verticale à la hauteur de mon document excel qui arrive vers la ligne 800 et non pas à la hauteur totale de la feuille excel.

Une petite macro d'une ligne, ça t'irait ?

sub LimiteDefilement()
 ActiveSheet.ScrollArea = "A1:IV800"
 end sub

Après exécution, tu ne peux plus faire défiler la feuille active au-delà de la ligne 800. Pour rétablir le comportement par défaut d'Excel :

sub RetablitDefilement()
 ActiveSheet.ScrollArea = ""
 end sub