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