un truc dans ce genre :
me.mylist.columnsCount = 3
For iLigne = 1 to 10
me.mylist.additem cells(iLigne,1).value
me.mylist.list( me.mylist.list.listcount - 1,1) = cells(iLigne,2).value
me.mylist.list( me.mylist.list.listcount - 1,2) = cells(iLigne,3).value
Next