Bonsoir à tous,

je voudrais positionné mon listbox à la dernière ligne non vide, mais ça plante!!
voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
  Tablo = Worksheets(ComboBox4.Text).Range("A2:z10000").Value
    ListBox1.List() = Tablo
 
    Sheets(ComboBox4.Text).Select
 
    Cells(16384, 1).End(xlUp).Select ' dernière cellule non vide de la colonne 1
    ActiveCell.Offset(0, 0).Select
    ListBox1.Text = ActiveCell.Text
Je dois vraiment me planter mais dans les listbox je suis un peu pommé. ce code est initialize de l'userform

merci à tous
jijie