Do While listbox.Items(IndiceDelListbox) = "" IndiceDelListbox = IndiceDelListbox - 1 listbox.SetSelected(IndiceDelListbox, True) Loop