Sub test()
Dim t1() As Variant, t2() As Variant, i As Byte
t1 = Array("C11", "D11", "N11", "E11", "F11", "G11", "H11", "S11")
t2 = Array("A1", "B1", "C1", "D1", "E1", "F1", "G1", "H1")
For i = LBound(t1, 1) To UBound(t1, 1)
Sheets("FeuilleDestination").Range(t2(i)).Value = Sheets("FeuilleSource").Range(t1(i)).Value
Next i
End Sub