Copier certaines cellules d'une feuille à une autre

Bonjour,

petit soucis debutant VBA, je recherche un code pour ceci :

je possédè un fichier contenant feuille 1 et 2,

je souhaiterai copier les Cellules E2 à E30 de la feuil2 vers la feuil 1 en colonne N à la ligne demandée

Et également les Cellules D2 à D30 (feuil2) vers feuil 1 en D

tout ceci (données des colonnes D et N) étant réciproquement sur les mêmes lignes

le seul soucis c'est que c'est un listing qui évolue donc les lignes évoluent également

Merci d'avance pour votre réponse

Bonjour,

à tester,

Sub test()
Dim LastRow21 As Long, LastRow22 As Long, n
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")
With sh2
    LastRow21 = .Cells(.Rows.Count, "D").End(xlUp).Row
    LastRow22 = .Cells(.Rows.Count, "E").End(xlUp).Row
    n = InputBox("copier sur quel ligne ?")
    If n = "" Or Not IsNumeric(n) Then Exit Sub
    .Range("D2:D" & LastRow21).Copy sh1.Range("D" & n)
    .Range("E2:E" & LastRow22).Copy sh1.Range("N" & n)
End With
End Sub