Option Explicit
Option Base 1
Sub test()
Dim MyWorkbook(2) As Workbook
Dim MaVar As Range
Dim MonTest As Range
Dim i As Byte, i2 As Byte, i3 As Byte
Dim cel As Range
Set MyWorkbook(1) = Workbooks.Open("C:\Documents and Settings\Administrateur\Bureau\Nouveau dossier\Nouveau Feuille de calcul Microsoft Excel (2).xls")
Set MyWorkbook(2) = Workbooks.Open("C:\Documents and Settings\Administrateur\Bureau\Nouveau dossier\Nouveau Feuille de calcul Microsoft Excel (3).xls")
i = 1
Do While i <= UBound(MyWorkbook)
Set MaVar = MyWorkbook(i).Worksheets("Feuil1").Range(Cells(1, 1), Cells(10, 10))
For Each cel In MaVar
If i = 1 Then
cel.Value = 1
Else
cel.Value = 2
End If
Next cel
i = i + 1
Loop
End Sub