Copier coller ensemble cellules paires vers colonne adjacente.

Bonjour à tous,

Je cherche à copier toutes les cellules ayant un numéro de ligne paire d'une colonne pour les coller vers la colonne adjacente en appliquant un retrait de 1 cellule vers le haut via VBA sous excel 2013.

Concrètement mon tableau est le suivant :

... C D E
1 ...x y z
2 .... n
3 ...x y z
4 .... n
5 ...x y z
6 .... n
7 ...x y z
8 .... n

Tous les x et les z ont été fusionnés, et j'aimerai mettre les n dans une nouvelle colonne entre D et E pour arriver à ce résultat :

... C D E F
1 ...x y n z
2 ....
3 ...x y n z
4 ....
5 ...x y n z
6 ....
7 ...x y n z
8 ....


Le code que j'ai trouvé me permet de sélectionner et copier les n mais en collant manuellement tous mes n sont resserrés d'un bloc :

Sub copiercol()

Dim i As Long
Dim rng As Range
'
'
'Mettre les valeurs correctes de iMin et iMax
'
Const iMin As Long = 4
Const iMax As Long = 378


Set rng = Range("D" & iMin & ":" & "D" & iMin)

For i = iMin + 2 To iMax Step 2
Set rng = Union(rng, Range("D" & i & ":" & "D" & i))

selection.Copy

Next i

rng.Select



End Sub

Cordialement,