bonsoir
voilà quelquechose.
cela te convient-il ?
Function GUI_Get_Last_Cell(Optional Plage_Cible As Range) As Range
If Plage_Cible Is Nothing Then Set Plage_Cible = ActiveSheet.Cells
Set rg_plage = Plage_Cible
With rg_plage
LastL = rg_plage.Find("*", , , , xlByRows, xlPrevious).Row
LastC = rg_plage.Find("*", , , , xlByColumns, xlPrevious).Column
End With
Set GUI_Get_Last_Cell = Cells(LastL, LastC)
Debug.Print Cells(LastL, LastC).Address
End Function
Sub demo()
For Each sh In Sheets
sh.Activate
Debug.Print GUI_Get_Last_Cell([A13:F65536]).Address(0, 0)
sh.Range([A13], GUI_Get_Last_Cell([A13:F65536])).Select
Next sh
End Sub
bye
Stéphane