Problème code vba

Bonjour à tous les ExDnautes

Mon problème j'ai de nombreuses feuilles avec un nombre différent de lignes occupées.
j' ai trouvé sur le forum un code qui permet de trouver la dernière cellule occupée

Sheets("2lettres").Select
Columns("E:E").Select
NoDernLigOccupee = Cells(ActiveSheet.Rows.Count, 5).End(xlUp).Row
Cells(NoDernLigOccupee, 52).Select
Selection.AutoFill Destination:=Range("AZ2:NoDernLigOccupee"), Type:=xlFillDefault
Range("AZ2:NoDernLigOccupee").Select
Range("A1").Select
La macro plante et je pense c'est dans AutoFill Destination (AZ2:NoDernLigOccupee) que cela se produit. Comment remplacer NoDernLigOccupee par une inconnue.
Merci d'avance pour votre aide

Jelf