Sub a()
Dim t, c As Range, x$
t = Timer
For Each c In [A1:A1000000]
x = c
Next
MsgBox Timer - t '1,95 seconde chez moi
End Sub
Sub b()
Dim t, i&, x$
t = Timer
For i = 1 To [A1:A1000000].Count
x = Cells(i, 1)
Next
MsgBox Timer - t '3,3 secondes chez moi
End Sub