Vider Listbox

Bonsoir chers tous

J'utilise le code ci dessous pour remplir mon listbox

Mais le soucis c'est que une fois rempli il ne se vide plus si ma plage de cellules est vide

Private Sub UserForm_Initialize()

ListBox6.List = Sheets("Sites").[b3].Resize(3).Value

end sub

Bonjour,

Peut-être comme ceci ...

Private Sub UserForm_Initialize()
ListBox6  = ""
ListBox6.List = Sheets("Sites").[b3].Resize(3).Value
end sub

ric