[VBA] trouver une feuille excel ds pls docs

Sub RechercheValeurDansFichierExcel()

    Const RepSource = "C:\Documents local\essai\"
    
    Dim objFSO As Variant, objFichier As Variant, objRepertoire As Variant
    Dim Longueur As Integer, Compteur As Integer, Extension As String
    Dim Boite() As String

    Dim NumFic As Integer, Boucle As Integer
    Dim Valeur As String, Feuille As Worksheet
    


    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objRepertoire = objFSO.GetFolder(RepSource)
    Compteur = 0
    If (objRepertoire.Files.Count > 0) Then
        For Each objFichier In objRepertoire.Files
            Longueur = Len(objFichier.Name)
            Extension = Mid(objFichier.Name, Longueur - 2)
            If (Extension = "xls") Then
                ReDim Preserve Boite(Compteur) As String
                Boite(Compteur) = objFichier.Name
                Compteur = (Compteur + 1)
            End If
        Next
    End If
    
    For Boucle = 0 To (Compteur - 1)
        Workbooks.Open Filename:=(RepSource & Boite(Boucle))
        For Each Feuille In ActiveWorkbook.Worksheets
            If (Feuille.Name = "2006") Then
                Valeur = Range("C20").Value
                Workbooks("Principal.xls").ActiveSheet.ActiveCell.Offset(0, 0).Value = Valeur
                Workbooks("Principal.xls").ActiveSheet.ActiveCell.Offset(1, 0).Select
            End If
        Next Feuille
        ActiveWorkbook.Close
    Next Boucle

    Set objFSO = Nothing
    Set objRepertoire = Nothing

End Sub