Incrémanetation ou evaluation?

Sub toto_test()
Dim toto() As String, n As Integer, i As Integer
'Windows("Comparaison week.xls").Activate
Sheets("Feuil1").Select
Range("A2").Select
n = Sheets(1).Range("A65536").End(xlUp).Row
''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''resoudre le toto(i)''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' '
ReDim toto(2 To n)
For i = 2 To n
toto(i) = "Lig" & Cells(i, 1)
Next i
Sheets("Feuil1").Select
Range("B10") = toto(2)
End Sub

Sub toto_test()

Dim toto As String
[COLOR="DarkGreen"]Dim Collec As New Collection[/COLOR]
Windows("Comparaison week.xls").Activate
Sheets("Sheet6").Select
Range("A2").Select
n = 0
Do While ActiveCell.Value <> ""
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
n = n + 1
Loop
''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''resoudre le toto(i)''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' '
For i = 2 To 2 + n - 1
[COLOR="darkgreen"]    Collec.Add Cells(A, "i").Value, i[/COLOR]
Next i

Sheets("Sheet1").Select
[COLOR="DarkGreen"]Range("B10") = Collec(i).Value[/COLOR]

End SUB