Plage variable fichier fermé ADO

Bonjour à toutes et tous,
Je souhaite pouvoir copier par ADO une plage de dimension variable d'un fichier fermé de façon à obtenir un résultat semblable à l'exemple ci-dessous:

Sub SelectZone ()

'selection dernière cellule
Selection.SpecialCells(xlCellTypeLastCell).Select

'N° ligne cellule active
ligne = ActiveCell.Row
'N° colonne cellule active
colonne = ActiveCell.Column
'ma zone = ligne active -1
lignActv = ligne - 1
'ma zone = colonne active -2
colActiv = colonne - 2
'selection de ma zone
Range(Cells(5, 1), Cells(lignActv, colActiv)).Select


End Sub

D'avance merci pour vos réponses.
Cordialement
Pierre