= Activesheet.usedrange.rows.count iRows
iColumns = activesheet.usedrange.Columns.count
« Si les lignes de formulaire précédentes ou des colonnes peuvent être vides, besoin d'obtenir le plus petit nombre de lignes et de colonnes de droite:
avec ActiveSheet. la UsedRange
iEndRow = + .Row-.Rows.Count. 1
iEndColumn = .Columns.Count +. 1 .column-
End avec
« Get valeur d'une lignée cellulaire choisie
A ActiveCell.Row =
B = ActiveCell.Column