Comment trouver la dernière ligne en VBA

Sur Excel, on ajoute souvent le contenu au bas de notre chiffrier. Le VBA peut grandement faciliter l'ajout des lignes en automatisant le tout. Mais où se trouve cette dernière ligne?

La fonction que l'on créera en VBA est très simple. Vraiment!

On demande à la feuille de travail de retourner la ligne en haut de la dernière ligne. C'est tout!

Function findLastRow(ByVal objInputSheet As Worksheet) As Integer
' ----------------------------------------------------------------
' Procedure Name: findLastRow
' Purpose: Trouve la dernière ligne utilisée dans la page indiquée
' Procedure Kind: Function
' Procedure Access: Public
' Parameter objInputSheet (Worksheet): Référence vers la page
' Return Type: Integer
' ----------------------------------------------------------------
      findLastRow = objInputSheet.Cells(objInputSheet.Rows.Count, 1).End(xlUp).Row
End Function