Find end row or end column #

dim MyEndColumn as integer, ShtBeginRow as integer, ShtEndRow as integer

dim MySht as worksheet

‘Code à exécuter

MyEndColumn = ActiveSheet.Cells(6, Columns.Count).End(xlToLeft).AddressLocal ‘Adapter le chiffre « 6 » à la ligne de référence

ShtBeginRow = MySht.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row ‘Adapter le chiffre « 2 » à la colonne de référence et décaler le comptage d’une ligne à cause des entêtes : Offset(1,0)

ShtEndRow = MySht.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row ‘Adapter le chiffre « 2 » à la colonne de référence