Sub LaDernière()
Dim Colonne As Integer
Dim DerLi As Integer
Dim LettreColonne As String
Colonne = 2
DerLi = Sheets(1).Columns(Colonne).Find("*", , , , , xlPrevious).Row
LettreColonne = Left(Cells(1, Colonne).Address(0, 0), IIf(Colonne < 27, 1, 2))
MsgBox "la dernière cellule de la colonne " & LettreColonne & " : " & LettreColonne & DerLi
End Sub