Sub test_3()
Dim aCell, vVal(), i&
aCell = Split("C7 E7 C10 E10 C13 E13 C16 E16 C19 E19 C22 E22")
ReDim vVal(UBound(aCell))
For i = LBound(aCell) To UBound(aCell)
vVal(i) = Feuil2.Range(aCell(i)).Value
Next
Feuil10.Cells(Rows.Count, 2).End(xlUp)(2).Resize(, 12) = vVal
End Sub