Après avoir récupéré tous les noms de fichiers du chemin, au moment de sortir de la boucle, une erreur survient au niveau de la ligne surlignée:
Argument ou appelle de procédure incorecte
voila mon code:
 
Sub ListeFichierRep(chemin, form)
     
    If Right(chemin, Len(chemin) - (Len(chemin) - 1)) <> "\" Then
     
        form.List1.AddItem (Dir(chemin & "\" ))
        If (Dir(chemin & "\" )) = "" Then
            Exit Sub
        End If
         
    Else
     
        form.List1.AddItem (Dir(chemin))
        If (Dir(chemin)) = "" Then
            Exit Sub
        End If
         
    End If
         
        While Dir() <> ""
            form.List1.AddItem (Dir())
        Wend
         
 
End Sub
 
 

petite réctification:
tous les fichiers ne sont pas listés lorsque ca bug

enlève les parenthèses et ça devrait marcher

Merci mais je me compliquais la vie...
g mis un FileListeBox