Sub ajouter()
Dim vals
With Sheets("IMPRIMER")
vals = Array(.[F6], .[I6], .[L6], .[F9], .[I9], .[L9], .[F12], .[I12], .[L12])
End With
With Sheets("PARENT").Cells(Rows.Count, 1).End(3)(2).Resize(, 9)
.Value = vals: .Borders.Weight = 2
End With
Sheets("IMPRIMER").Range("F6,I6,L6,F9,I9,L9,F12,I12,L12") = ""
End Sub