Aide macro excel

Sub copie_feuilles()
'http://www.commentcamarche.net/faq/16109-excel-convertir-fichier-s-csv-xls#selectionner-le-chemin-par-boite-de-dialogue
'Lermitte222
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim ScanFic As Office.FileSearch
Dim NomFic As Variant
Dim tablo
Dim nomfich, nomfeuil As String
Dim i As Integer
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", ssfTous)
    Set oFolderItem = objFolder.Items.Item
    chemin = oFolderItem.Path
    Set objShell = Nothing
    Set objFolder = Nothing
    Set oFolderItem = Nothing
'------------------------------------------
'http://www.commentcamarche.net/forum/affich-7805734-vba-excel-lister-fichiers-caracteristique
Set ScanFic = Application.FileSearch
With ScanFic
.NewSearch
.LookIn = chemin
.SearchSubFolders = True
.Filename = "xls"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
Nbr = .Execute
For Each NomFic In .FoundFiles
Workbooks.Open Filename:=NomFic
'------------------------------------------
'http://www.commentcamarche.net/forum/affich-18381562-trouver-un-fichier-vba-excel#5
'michel_m
tablo = Split(NomFic, "\")
nomfich = tablo(UBound(tablo))
nomfeuil = Left(nomfich, 2)
With Workbooks("suivi.xls")
For i = 1 To .Sheets.Count
    If .Sheets(i).Name = nomfeuil Then
        MsgBox "La feuille " & nomfeuil & " existe déjà"
        GoTo suivant
    End If
Next
End With
'-------------------------------------------
Workbooks(nomfich).Sheets("Feuil1").Select
Workbooks(nomfich).Sheets("Feuil1").Copy After:=Workbooks("suivi.xls").Sheets(3)
ActiveSheet.Name = nomfeuil
suivant:
Workbooks(nomfich).Activate
Workbooks(nomfich).Close
Next
End With