Numero derniere ligne d'une feuille

Dim DerCell As Range
Dim DerLig As Long, DerCol As Long
Set DerCell = Cells.Find("*", , , , xlByRows, xlPrevious)
DerLig = DerCell.Row
DerCol = DerCell.Column

Dim DerCell As Range
Dim DerLig As Long, DerCol As Long
Set DerCell = Cells.Find("*", , , , xlByRows, xlPrevious)
DerLig = DerCell.Row
Set DerCell = Cells.Find("*", , , , xlByColumns, xlPrevious)
DerCol = DerCell.Column

Discussions similaires