[RENAUDER]

Bonjour,

Ce code fonctionne chez moi en XL2007

Private Sub UserForm_Initialize()
    unRép = Dir("C:\Excel\*.xls", vbDirectory)
    Do While unRép <> ""    ' Commence la boucle.
        I = I + 1
        ReDim Arr(1 To I)
        unRép = Dir
        Arr(I) = unRép
        Me.ComboBox1.AddItem Arr(I)
    Loop
End Sub