Bonjour,
Dans Userform_Initialize
With lst_Consult
.Gridlines = True ' affiche les lignes
.View = lvwList ' Style de rapport
.FullRowSelect = True ' Sélectionne la ligbne entière
.FlatScrollBar = False 'True ' << pas true ... mais false >>> magiiiiieee 8- )))))))
ric