Salut,
Peut être une boucle de ce genre,
dim I as long,J as long
talistbox.columncount=3
with sheets("Tafeuille")
for =1 to nbatoidevoir
talistbox.additem .Range("A" & i) '1 ere col
talistbox.list(J,1)=.Range("E" & i) '2 eme col
talistbox.list(J,2)=.Range("K" & i) '3 eme col
j=j+1
next I
end with
A+++