Sub TEST()
Dim montableau(), maplage As Range, i As Integer
Set maplage = Range("A1:A" & Range("A65536").End(xlUp).Row)
For i = 1 To maplage.Rows.Count
ReDim Preserve montableau(1 To i)
montableau(i) = Range("A" & i).FormulaLocal
Next i
'ton code
maplage = montableau
End Sub