Public Function ChercheDernièreLigne(Classeur As Workbook, NomFeuille As String) As Long
Dim DernièreLigne As Long
If Classeur.Application.WorksheetFunction.CountA(Classeur.Worksheets(NomFeuille).Cells) > 0 Then
DernièreLigne = Classeur.Worksheets(NomFeuille).Cells.Find(what:="*", after:=Classeur.Worksheets(NomFeuille).Range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End If
ChercheDernièreLigne = DernièreLigne
End Function