Erreur d'exécution 9 l'indice n'appartient pas à la selection

Bonjour,

Comment la macro ci-dessous pourrait fonctionner s'il vous plait?

J'y connais rien et j'ai besoin de copier les données d'une série de fichiers xls dans un seul autre pour créer une base de donnée.


Dim sText As String
sfile = ActiveWorkbook.Name

For i = 1 To 2
sText = "\\I:\TOOLS_EXCEL\" & i & ".xls"

Workbooks.Open sText
Workbooks(sfile).Worksheets("Data").Cells(i, 1) = i
Workbooks(sfile).Worksheets("Data").Cells(i, 2) = Workbooks(sText).Worksheets("Analyse du 20110512 ").Cells(3, 3)
Workbooks(i & ".xls").Close False