Sub carpatique()
Dim DerLig As Long
[A1:E28].Clear: [A1] = "=ROW()^2": [A1:A17].FillDown ' uniquement pour faire le test
[E1:E11] = Application.UserName
DerLig = Cells(Rows.Count, "A").End(3).Row
Range("A1").Copy
Cells(DerLig + 1, "C").PasteSpecial xlValues
Application.CutCopyMode = False
Range("A7").Copy Cells(Rows.Count, "E").End(3)(2)
Application.CutCopyMode = False: [C18,E12].Interior.Color = vbYellow: [C18,E12].Font.Bold = -1
End Sub