Macro ajout de ligne en fin de tableau

Bonjour,

J'ai un problème sur ma macro:
La ligne qui s'ajoute en fin de tableau est une copie de la dernière ligne et non une copie de la ligne 20 qui est vierge de données. Peut-on m'aider svp ? Merci

Sub ajout_ligne()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
ligne_max = Range("FF1").Value
Range("A20").Select
Selection.End(xlDown).Select
Range(Selection, Cells(ActiveCell.Row, 162)).Select
Selection.Copy
Cells(ligne_max + 1, 1).Select
ActiveSheet.Paste
Range(Cells(ligne_max + 1, 2), Cells(ligne_max + 1, 2)).Select
Selection.ClearContents
Range("A20").Select
Application.ScreenUpdating = True
End Sub