XL 2010 coller une sélection sous la ligne active - code incomplet

[cgpa]

Bonsoir,
J'ai un petit problème avec mon code qui est incomplet. Je cherche à coller en tant que valeur sous la ligne active une sélection de cellules.
Voici mon objectif:

objectif:

1: insérer une ligne en dessous de la cellule active (exemple sous ligne 6) - ça, j'arrive

(on doit pouvoir se placer sur n'importe quelle ligne du tableau) - j'arrive aussi

2. copier la sélection D8:I8 - j'y arrive encore

3. Coller en tant que valeur la sélection D8:I8 sur la ligne créée sous la cellule active du point 1. - là, ça coince car je ne sais comment dire que c'est sur la nouvelle ligne créée!!!

Quelqu'un peut-il m'aider?
Merci beaucoup.

 

[cgpa]

j'ai trouvé, merci ma fille:

Sub test2()
Rows(ActiveCell.Row + 1).Insert ' insère une ligne sous la cellule active
ActiveCell.Offset(1, 0).Select ' se place sous la cellule active sur la ligne insérée
ActiveWorkbook.Names.Add Name:="machin", RefersToR1C1:=ActiveCell.Offset(0, 0) 'je nomme la cellule "0", soit la cellule créée sous la cellule active du nom de "machin"

Range("D9:H9").Select 'je sélectionne et copie la plage
Selection.Copy

Application.Goto Reference:="machin" 'je retourne sur la cellule nommée "machin"

'et pour coller en tant que valeur:
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub