Remplacement FileSystemObject pour utilsiation Excel 2010

Bonjour,

je débute sous vba et je suis confronté à un gros problème pour moi lors de la migration de excel 2003 à excel 2010.

J'ai ce code qui ne marche plus puisque Application.FileSearch n'est plus "actif" dans Excel 2010. En revanche en cherchant les équivalences je n'arrive pas à corriger mon code. Est-ce que quelqu'un peut m'aider ?

 
With Application.FileSearch
        .LookIn = "a:"
        .SearchSubFolders = False
        .Filename = "*.txt"
        .MatchTextExactly = False

        If .Execute() > 0 Then
            For i = 1 To .FoundFiles.Count
                a = 5
                Workbooks.OpenText Filename:=.FoundFiles(i), Origin:=xlWindows, _
                StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
                ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
                Space:=True, Other:=True, OtherChar:="="
                For a = a To 66
                    Application.ScreenUpdating = False
                    à_trouver = Workbooks("programme ARBURG.xls").Sheets _
                            ("acquisition").Cells(a, 2).Value
                    colonne = Workbooks("programme ARBURG.xls").Sheets _
                            ("acquisition").Cells(a, 2).Offset(0, 1).Value
                    recherche_dans_fichier
                Next a
            Next i
        Else
                MsgBox "pas de fichier trouvé"
        End If
    End With

En fait ce que la macro est censée faire c'est regarder combien de fichiers il y a dans le A:\ et prendre le dernier et l'ouvrir. Pour la suite je pense que j'arriverai à me démerder.

Merci beaucoup par avance à tous ceux qui pourront m'aider.