Je souhaiterais obtenir dans une feuille excel, un menu déroulant avec la liste des disque dur, dans une autre liste, l'arborescence des fichiers. J'ai une liste de 120 personnes que je dois mettre sur une feuille excel tous les jours. Je voudrais les placer sur cette feuille à l'aide d'un userform et qu'ils disparaissent au fur et à mesure de la liste.

on assure la compatibilité excel 97 feuille modal

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function EnableWindow Lib "user32" _ (ByVal hWnd As Long, ByVal fEnable As Long) As Long 
Private sub UserForm_Initialize()
 For Each c In Range("nom").Cells
 ListBox1.AddItem (c.Value)
 TextBox1.Value = ListBox1.ListCount
 Next
 end sub

Private sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 ActiveCell.Value = ListBox1.Value
 ListBox1.RemoveItem (Index)
 TextBox1.Value = ListBox1.ListCount
 end sub