[dossiers] Comment comparer un ensemble

Option Explicit
     Public dossier
     Public Type BROWSEINFO
        hOwner As Long
        pidlRoot As Long
        pszDisplayName As String
        lpszTitle As String
        ulFlags As Long
        lpfn As Long
        lParam As Long
        iImage As Long
     End Type
     '32-bit API declarations
     Declare Function SHGetPathFromIDList Lib "shell32.dll" _
     Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
     Declare Function SHBrowseForFolder Lib "shell32.dll" _
     Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Function GetDirectory(Optional Msg) As String
     Dim bInfo As BROWSEINFO
     Dim path As String
     Dim r As Long, x As Long, pos As Integer
     bInfo.pidlRoot = 0&
     If IsMissing(Msg) Then
     bInfo.lpszTitle = ""
     Else
     bInfo.lpszTitle = Msg
     End If
     bInfo.ulFlags = &H1
     x = SHBrowseForFolder(bInfo)
     path = Space$(512)
     r = SHGetPathFromIDList(ByVal x, ByVal path)
     If r Then
     pos = InStr(path, Chr$(0))
     GetDirectory = Left(path, pos - 1)
     Else
     GetDirectory = ""
     End If
End Function
Sub Arborescence_simple_Dossier()
'Objectif : créer une liste du contenu d'un répertoire
'
Dim fs, i, j, nomfich, FileNumber, specfichier, nbfichiers
Dim fso As New FileSystemObject
dossier = GetDirectory("choisissez le dossier à traiter")
If dossier <> "" Then
    Set fs = Application.FileSearch
    With fs
        .LookIn = dossier
        .SearchSubFolders = True
        '.Filename = "*.js"
        .FileType = msoFileTypeAllFiles
        If .Execute() > 0 Then
            nbfichiers = .FoundFiles.Count
            MsgBox "Ce dossier contient " & nbfichiers & " fichier(s) répondant aux critères."
            j = 2
            For i = 1 To nbfichiers
                specfichier = .FoundFiles(i)
                Cells(j, 1) = specfichier
                j = j + 1
           Next i
        Else
            MsgBox "Aucun fichier n'a été trouvé."
        End If
    End With
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=LEN(RC[1])"
    Range("A2").Select
    Selection.AutoFill Destination:=Range("A2:A" & nbfichiers + 1)
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "longueur"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "chemin_fichier"
    Range("A2").Select
    Columns("B:B").EntireColumn.AutoFit
    Range("A1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:=">255", Operator:=xlAnd
End If
End Sub