afichage dans une liste

Private Sub Workbook_Open()
Dim myRange As Range
Dim nomFic As String



With Sheets("Feuil1"): .Range("A2:E" & .Range("A65536").End(xlUp).Row + 1).ClearContents: End With
Set DOSSIER_A_FOUILLER = CreateObject("Shell.Application")
Set Existing_Files = DOSSIER_A_FOUILLER.Namespace("P:\Atelier CONTROLES\Défautèque")

For Each element In Existing_Files.Items

    If Format(Existing_Files.GetDetailsOf(element, 2), ">") Like "*EXCEL*" Then
        
        If element.Name <> ThisWorkbook.Name And Left(element.Name, 1) = "*" Then
            With Sheets("Feuil1")
                Set myRange = .Range("A" & .Range("A65536").End(xlUp).Row + 1)
                nomFic = Replace(element.Name, ".xls", "")
                v = Split(nomFic, "_")
                myRange = v(1)
                fic = myRange
                If Not d.exists(fic) Then d.Add fic, fic
                myRange.Offset(0, 1) = v(0) & "_"
                myRange.Offset(0, 2) = Replace(Replace(nomFic, myRange.Offset(0, 1), ""), myRange, "")
                myRange.Offset(0, 3) = nomFic
                .Range("E2").Resize(d.Count, 1) = Application.Transpose(d.keys)
            End With
        End If
        
    End If
      
Next element

Feuil1.Select
End Sub