Recherche:

Regarde la piste donnée en #14 par ProgElecTCela doit dépendre de la fonte utilisée

La valeur 210 doit être ajustée (c'est le nombre de pas de la souris entre deux lignes)surtout quand on utilise l’ascenseur pour visualiser des répertoires en bas de la DirListBox.
Ce n'était qu'une...

teste ça (Repertoire est une DirListBox):


Dim Nmin% ' Indice minimum de DirListBox

Private Sub repertoire_Change()
FichierVu.FileName = Repertoire.Path
RepertoireChoisi.Caption =...