Sub PetitTest()
Dim L&, A$
Cells.Clear
'petit clin d'oeil pour générer des donées de test
ActiveSheet.Cells(VBA.Round(Rnd * 1600, 0), 1).Value = Chr(149)
'écriture "allégée"
L = ActiveSheet.Cells(Rows.Count, 1).End(3)(2).Row: A = ActiveSheet.Cells(Rows.Count, 1).End(3)(2).Address(0, 0)
MsgBox "Ligne: " & L & vbCrLf & "Cellule: " & A
Application.Goto ActiveSheet.Cells(Rows.Count, 1).End(3), True
'écriture classique
MsgBox ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1).Address(0, 0)
End Sub