Sub Petit_Test()
Range("A2:AB1000") = "=1600+ROW()*COLUMN()"
Rows("2:1000").Select
MsgBox Selection.Address
Range(Selection, Selection.End(xlToRight)).Select
MsgBox Selection.Address
Range(Selection, Selection.End(xlDown)).Select
MsgBox Selection.Address
MsgBox Range("A2").Resize(999, Cells(2, Columns.Count).End(xlToLeft).Column).Address
End Sub