Copier une ListBox

Feuil1.Cells(ty + 2,   i, 3) = lder       
Feuil1.Cells(ty + 2, 8) = datea       
Feuil1.Cells(ty + 2, 1) = anneea       
Feuil1.Cells(ty + 2, 2) = semaine       
Feuil1.Cells(ty + 2, 9) = equip       
Feuil1.Cells(ty + 2, 10) = descrip      
Feuil1.Cells(ty + 2, 11) = bt       
Feuil1.Cells(ty + 2, 12) = exec      
 Feuil1.Cells(ty + 2, 17) = arret       ............

Feuil1.Cells(ty + 2, i, 3) = lder

Sub test()
Feuil1.Cells(lder, 1).Value = "99999"
End Sub
Public Function lder() As Long
lder = Feuil1.Range("A5000").End(xlUp).Row
End Function