Macro recherche fichiers

Private Sub ImporterFichiers()

strNomFichier = Dir(strRepertoireFichiers & "*.xlsx", vbNormal)

'Pour chaque fichier xlsm
While strNomFichier <> ""
        'On vérifie si on ne l'a pas déjà importé
        If VerifierSiDejaImporte(strNomFichier) = False Then
  'On traite le fichier et on enregistre qu'on la traité
  Call AjouterFichierAListeDesFichiersDejaImportes(strNomFichier)
 End If
WEnd

End Sub

Private Function VerifierSiDejaImporte(ByVal pin_strNomFichierAVerifier As String)

Dim i As Integer
    Dim blnTrouve As Boolean
    Dim strNomFichierTraite As String

'Cette fonction recherche dans la feuille 2 de classeur Excel, si le fichier est déjà présent

blnTrouve = False

i = 2 'On commence à 2 car la 1ère ligne contient le titre de colonne
    Do
 'Dans la Worksheet n°2, colonne A, il y a les noms des fichiers
        strNomFichierTraite = ThisWorkbook.Worksheets(2).Range("A" & CInt(i)).Value

'Si le nom de fichier correspond, on l'a trouvé !
        If strNomFichierTraite = pin_strNomFichierAVerifier Then
                    blnTrouve = True
        End If

i = i + 1
    Loop While strNomFichierTraite <> "" And blnTrouve = False


VerifierSiDejaImporte = blnTrouve

End Function


Private Sub AjouterFichierAListeDesFichiersDejaImportes(pin_strNomFichier As String)

Dim i As Integer
    Dim strNomFichierTraite As String

'Ici on va chercher la prochaine cellule vide dans la liste des fichiers traités
    i = 2
    Do
        strNomFichierTraite = ThisWorkbook.Worksheets(2).Range("A" & CInt(i)).Value

If strNomFichierTraite <> "" Then
            i = i + 1
        End If
    Loop While strNomFichierTraite <> "" And strNomFichierTraite <> pin_strNomFichier


'i contient le numéro de la prochaine ligne libre, on ajoute le nom du fichier
    ThisWorkbook.Worksheets(2).Range("A" & CInt(i)).Value = pin_strNomFichier


End Sub