VBA liste fichiers avec informations

Cells(2, 2) = ExecuteExcel4Macro("'" & chemin & "\[source.xls]Feuil1'!R2C1") 'R2C1=A2

Sub Test_case_option()

Dim NomOnglet As String
NomOnglet = ActiveWorkbook.ActiveSheet.Name
 
With Sheets(NomOnglet)
 
Select Case xlOn
Case .OptionButtons(1).Value
MsgBox "case Fait sélectionnée"
 
Case .OptionButtons(2).Value
MsgBox "case Pas Fait sélectionnée"
 
End Select
End With
End Sub

Option Explicit
'----------------------------------------------------------
Sub recapituler_etats()
Dim T_etats, Chemin As String
Dim Fichier As String, Cptr As Integer
Dim Start As Single

    Start = Timer 'mesure durée exécution _
    à supprimer après essais
'-----------------------------------initialisations
    'fige défilement écran: confort, rapidité
    Application.ScreenUpdating = False
    With Sheets("feuil1")
        .Range("A2:B5000").Clear  'nettoyage
        'préparation tablo fichier -état
        ReDim T_etats(1 To 5000, 1 To 2)
        'emplacement des fichiers d'états A ADAPTER
        Chemin = ThisWorkbook.Path & "\" & "fichiers" & "\"
        
'------------------------------recherche etat dans les fichiers
        'déplacement dans le dossier des classeurs-état
        ChDir Chemin
        Fichier = Dir(Chemin & "*.xls")
        While Fichier <> ""
                Cptr = Cptr + 1
                Workbooks.Open (Fichier)
                    'mémorisation du nom de classeur
                    T_etats(Cptr, 1) = Fichier
                    'mémorisation de l'état du classeur
                    With ActiveSheet
                        Select Case xlOn
                            Case .OptionButtons(1).Value
                                T_etats(Cptr, 2) = "fait"
                            Case .OptionButtons(2).Value
                                T_etats(Cptr, 2) = " pas fait"
                        End Select
                    End With
                ActiveWorkbook.Close
            Fichier = Dir
        Wend

'----------------------Récapitulatif de l'état par classeur
       With .Range("A2").Resize(Cptr, 2)
            .Value = T_etats
            .Borders.Weight = xlThin
        End With
    End With
    'a supprimer après essais
    Application.ScreenUpdating = False
    MsgBox "durée: " & Timer - Start & " secondes."
    
End Sub