Macro :copie des lignes et inserer a la fin de la derniere ligne

Bonjour,

je suis e,train de faire un macro , qui selectionne les lignes via une liste deroulant puis les copies et les inserent a la fin de de la derniere ligne selectionne:
ca donne


dim i as integer

for i=0 to listbox1.liscount-1
do whilz listbox1.selected=true
sheet1.rows(i).copy
acrtivecell.Entirerow.insert
sheet1.rows(i).pastespecial

i=i+1
loop

next