Sub preencherlistbox()
Dim ultimalinha As Long
Dim Linha As Integer
ultimalinha = Plan1.Range("A65000").End(xlUp).Row
For Linha = 2 To ultimalinha
UserForm.ListBox1.AddItemPlan1.Range ("A" & Linha)
UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 1) = Plan1.Range("C" & Linha) = Plan1.Range("D" & Linha) = Plan1.Range("E" & Linha) = Plan1.Range("F" & Linha) = Plan1.Range("G" &
Linha) = Plan1.Range("H" & Linha)
Next
End Sub