bonjour
pour répondre à ta question, inspire toi de ça :
Sub test()
Set rg_plage =cells
With rg_plage
LastL = rg_plage.Find("*", , , , xlByRows, xlPrevious).Row
LastC = rg_plage.Find("*", , , , xlByColumns, xlPrevious).Column
End With
Cells(LastL, LastC).Select
End Sub
bye
ps : si t'as tout compris, tu peux faire une fonction à laquelle tu passerais en paramètre une plage