Sub test_group_2()
[O11:Z65000].ClearContents 'efface
For lig = 11 To [J65000].End(3).Row
col = (Cells(lig, 10) * 5) + 10
col2 = (Cells(lig, 11) * 5) + 10
Range("O" & lig & ":S" & lig).Value = Range(Cells(2, col), Cells(2, col + 4)).Value
Range("V" & lig & ":Z" & lig).Value = Range(Cells(2, col2), Cells(2, col2 + 4)).Value
Next
End Sub