Trouver la dernière cellule utilisée dans Excel VBA

[Clippy]

Comment trouver la dernière cellule utilisée (dernière ligne/colonne) dans une feuille Excel avec VBA ?

[ayi]

Plusieurs méthodes :

Dernière ligne utilisée dans une colonne :

Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

Dernière colonne utilisée dans une ligne :

Dim lastCol As Long
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column

Dernière cellule utilisée sur la feuille :

Dim lastCell As Range
Set lastCell = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)

Ou utilisez UsedRange :

Dim lastRow As Long
lastRow = ActiveSheet.UsedRange.Rows.Count

Attention : UsedRange peut inclure des cellules qui ont été effacées mais dont le formatage persiste.