Boucle des fichiers d'un dossier

    sNomFichier = Dir(sCheminCompletRecherche, vbNormal)
    While sNomFichier <> ""
        ReDim Preserve arrayFichier(UBound(arrayFichier) + 1) 'agrandi le tableau de 1
        arrayFichier(UBound(arrayFichier)) = sCheminRecherche & sNomFichier
        sNomFichier = Dir 'Dir sans argument recherche le suivant
    Wend