Sub MacrOhMonDieuQuelBean()
Dim i As Long
Dim adr, j As Byte
Application.ScreenUpdating = False
Rows("3:9").Insert Shift:=xlDown
Range("A2:AA2").Copy
For i = 3 To 9
Range("A3:AA" & i).PasteSpecial Paste:=xlPasteFormats
Next i
adr = Split("A C E G O X Z")
For j = 0 To UBound(adr)
Cells(9, adr(j)).FormulaR1C1 = "=AVERAGE(R[-6]C:R[-1]C[1])"
Next j
Cells(9, "I").FormulaR1C1 = "=AVERAGE(R[-7]C:R[-1]C[5])"
Cells(9, "Q").FormulaR1C1 = "=AVERAGE(R[-7]C:R[-1]C[3])"
Cells(9, "U").FormulaR1C1 = "=AVERAGE(R[-7]C:R[-1]C[2])"
Application.ScreenUpdating = True
End Sub