Dim DernièreLigne As Long
If WorksheetFunction.CountA(Workbooks(NomClasseur).Worksheets(NomFeuille).Cells) > 0 Then
DernièreLigne = Workbooks(NomClasseur).Worksheets(NomFeuille).Cells.Find(what:="*", after:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End If