Sub LastButNotLeast()
Dim vresult$
Cells.Clear
Cells(1, 1).Resize(, Int((Rnd * 50) + 1)) = "=2*COLUMN()"
Cells(3, 1).FormulaArray = "=ADDRESS(1,MAX((R[-2]<>"""")*COLUMN(R[-2])),4)"
Range("A1").Select
vresult = vresult & "JCGL: " & Cells(ActiveCell.Row, 1).End(xlToRight).Address(0, 0) & vbCrLf
vresult = vresult & "leti: " & Cells(ActiveCell, Columns.Count).End(xlToLeft).Address(0, 0) & vbCrLf 'leti
vresult = vresult & "piga25: " & Selection.End(xlToRight).Address(0, 0) & vbCrLf 'piga
vresult = vresult & "staple: " & [A3].Text & vbCrLf 'staple
'(ou plutôt formule empruntée naguère à Chip Pearson)
MsgBox vresult
End Sub