Function DerniereLigneVide(colonne As Range)
Dim P As Range, a1$, a2$
Set P = Intersect(colonne.Parent.UsedRange, colonne.EntireColumn)
a1 = P.Address(External:=True)
a2 = P.Offset(1).Address(External:=True)
DerniereLigneVide = Evaluate("MAX((" & a1 & "="""")*(" & a2 & "<>"""")*ROW(" & a1 & "))")
End Function