bonjour
je pensais aoivr posté une soluce mais non, alors j'en refais une vite fait
Sub test()
Set rg_plage = Range("A15:B40")
With rg_plage
LastL = rg_plage.Find("*", , , , xlByRows, xlPrevious).Row
LastC = rg_plage.Find("*", , , , xlByColumns, xlPrevious).Column
End With
Cells(LastL, LastC).Select
Debug.Print Cells(LastL, LastC).Address
End Sub
bye
stephane