Dernière cellule non vide dans une colonne

Comment trouver la dernière cellule non vide dans une colonne Excel ?

Formule :

=RECHERCHE(2;1/(A:A<>"");A:A)

Ou avec INDEX/EQUIV :

=INDEX(A:A;EQUIV(2;1/(A:A<>"");1))

(valider avec Ctrl+Maj+Entrée car c’est une formule matricielle)

En VBA :

Dim derniere As Range
Set derniere = Range("A" & Rows.Count).End(xlUp)
MsgBox derniere.Value