Private Sub UserForm_Initialize()
Répertoire = CurDir() ' nom du répertoire courant
masque = Répertoire + "\*.xls"
nf = Dir(masque) ' 1er classeur du répertoire
Do While nf <> ""
Me.Choix.AddItem nf
nf = Dir() ' classeur suivant
Loop
End Sub