problème insertion ligne automatique

Bonjours à tous et merci à toutes les personnes qui nous concèdent un peut de leur temps pour nous venir en aide.

Voila grace à ce fabuleux forum, je fais actuellement une feuille de bilan, dans ce bilan j'ai un tableau pour les "evenements", "action", nom.

Voila mon problème, lorsque j'arrive à la dernière ligne du tableau j'aimerai que lorsque je rentre du texte dans cette dernière ligne et que je tape entrée une ligne supplémentaire ce rajoute à mon tableau, j'ai réussi a le faire en trouvant un code sur le forum, mais lorsque je rentre du texte sur la ligne 65 je perds la fusion de mes cellules et j'aimerai bien garder la fusion de mes cellules

Voici mon code

Private Sub Worksheet_Change(ByVal Target As Range)
'-------------------------------------------------
' Insertion ligne automatique
'-------------------------------------------------

If Target.Address <> Range("A65536").End(xlUp).Address Then Exit Sub
If Target = "" Then Exit Sub
Dim T
Application.ScreenUpdating = False
Application.EnableEvents = False ' pour ne pas se mordre la queue
T = Target.Value 'mémorise la valeur
Rows(66).Copy Target.EntireRow.Resize(2) 'copie la ligne 2 et colle sur 2 lignes
Union(Target.Resize(, 16), Target.Offset(1).EntireRow).ClearContents
Target = T
Application.EnableEvents = True

End sub


Je vous joint mon fichier

Merci de votre aide

Cordialement
Pascal