Sub nouveaux()
With Sheets("NOUVEAU")
.Range("A2:Q2").Copy
With Sheets("BD").Rows("2:2")
.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
.Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
.Range("E8:E13,E16,G10:G13,G16,I10:I13").ClearContents
End With
End Sub