VBA Excel 2003 vs 2007

Bonjour à toutes et tous,
J'ai transmis ce code (adapté d'un code trouvé quelque part ici même) à un pote qui utilise Xl2007. Je n'ai que la version 2003 et suis donc dans l'impossibilité de l'aider, la macro fonctionnant très bien chez moi...
Quelqu'un aurait il l'amabilité de regarder et de me dire ce qu'il faut modifier pour que le code fonctionne sous Xl2007?
Merci d'avance

Sub txtenxls()
Dim ScanFic As Office.FileSearch
Dim NomFic As Variant
Dim Nbr As Long
Dim R As Long TB()
Dim i As Integer, j As Integer, k As Integer
Set ScanFic = Application.FileSearch
With ScanFic
.NewSearch
.LookIn = ActiveWorkbook.Path
.SearchSubFolders = True
.Filename = "*.txt"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
Nbr = .Execute
For Each NomFic In .FoundFiles
Workbooks.OpenText Filename:=NomFic
      R = RechFind("@", ActiveWorkbook.Name, ActiveSheet.Name, Range("A1:A5000").Address, TB())
    If R > 0 Then
    j = j + R
        For i = 0 To R - 1 ' ou ubound(TB)
            'exemple
            Workbooks("txt en xls.xls").Sheets("Feuil1").Cells(i + j, 2) = Range(TB(i))
        Next i
    End If
ActiveWorkbook.Close
Next
Set ScanFic = Nothing
MsgBox ("Macro terminée, ne reste plus qu'un tri manuel à effectuer...")
End Sub

Le débogage lui indique la ligne en gras.

--
Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --