Sub essai()
Dim Dl1 As Long ' dernière ligne
Dim £col As String
Dim col As Integer
Dim Nomfeuille1 As String
£col = "a"
col = 1
Nomfeuille1 = ActiveSheet.Name
With Sheets(Nomfeuille1)
Dl1 = .Rows.Count ' nombre de ligne dans la feuille
Dl1 = Sheets(Nomfeuille1).Range("A" & .Rows.Count).End(xlUp).Row ' dernière ligne
Dl1 = .Range(£col & Columns(1).Cells.Count).End(xlUp).Row
Dl1 = .Cells(Columns(col).Cells.Count, col).End(xlUp).Row + 1 ' avec numéro de colonne
Dl1 = .Cells.SpecialCells(xlCellTypeLastCell).Row ' avec la plus grande des colonnes
Dl1 = .Cells.Find("*", , , , , xlPrevious).Row
End With
End Sub