DerniereLigne = Application.WorksheetFunction.CountA(Range("A:A"))
Worbooks("Ton classeur").Worksheets("Ta feuille").cells(Ligne, Colonne)
PremLigne = Range("A1").end(xldown).row
DerLigne = Range("A65500").end(xlup).row
NbLignes = DerLigne-PremLigne+1
ou
DerLigne = Range("A" & Application.rows.count)..end(xlup).row