Insérer des lignes et copier certains cellules dans ces lignes

Bonjour le forum,

Je débute sur VBA, j'ai besoin d'aide sur mon tableur. Je souhaite insérer des lignes en copiant certaines cellules de la ligne précédente. Je veux copier les cellules A, B, D, J, K, L, M, N, U et AD. Et si possible étirer la colonne AG jusqu'au nombres de ligne insérées . J'ai fait un code qui ajoute les lignes mais il copie toutes les cellules précédentes.

Pourriez vous m'aider .

Merci Cordialement.

Voici le code:

Sub test()
'Updateby Extendoffice 20160616
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

Re,

voila le fichier qui pourrait vous aider à mieux comprendre.

Merci.