Afficher un message
Vieux 25/02/2004, 20h09   #9 (permalink)
Myta
Guest
 
Messages: n/a
Par défaut Re: Pour Thierry et le Forum

Re le forum

Et pour empecher le vide dans Listbox2

With Worksheets(Feuille)
For Each Cell In .Range(.Cells(1, 1), .Cells(1, .Range("IV1").End(xlToLeft).Column))
ListBox2.AddItem Cell
Next Cell
End With

Mytå