'Selectionner la plage de A8 à F10
Sub test()
Sheets("Feuil1").Activate
numrows = Selection.Rows.Count
If Selection.Rows.Count = 1 And Selection.Columns.Count = 1 Then MsgBox "Votre selection n'est pas correcte", vbCritical, "Erreur de Selection": Exit Sub
rw = ActiveCell.Row
Cells(rw + numrows, 1).Resize(numrows).EntireRow.Insert
Selection.Copy Cells(rw + numrows, 1).EntireRow
Range(Cells(rw + numrows, 1), Cells(rw + numrows + numrows, 6)).Select
Selection.EntireRow.SpecialCells(xlConstants).ClearContents
Cells(rw + numrows + numrows, 1).Select
End Sub