Choix d'un fichier au hasard

Private Sub UserForm_Initialize()
Dim Fic As String, Liste() As String, Alea As Long
    ReDim Liste(1 To 1)
    Fic = Dir("C:\Documents and Settings\All Users\Documents\Mes images\Échantillons d'images\*.jpg")
    Do Until Fic = ""
        Liste(UBound(Liste)) = Fic
        ReDim Preserve Liste(1 To UBound(Liste) + 1)
        Fic = Dir
    Loop
    Randomize
    Alea = Int(Rnd * (UBound(Liste) - 1)) + 1
    Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\Mes images\Échantillons d'images\" & Liste(Alea))
End Sub