Forum Clubic

Copier certaines cellules dans un ou des lignes inserées

Bonjour, le forum,
Je débute sur VBA, j’ai besoin d’aide sur mon tableur. Je souhaite copier certaines cellules de la ligne précédente dans des lignes que j’insère. 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 pour résoudre ce problème .
Merci à vous, Cordialement.

voir 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

Merci d’avance pour vos réponses