Dim c As Range, sourc, dest
Set c = wbks.Sheets("Final").Cells(fin1, 1)
sourc = Array(c(1, 1), c(1, 2), c(1, 4), c(1, 5), c(1, 13), c(1, 14), _
c(1, 15), c(1, 9), c(1, 16), c(1, 16), c(1, 17), c(1, 18), c(1, 19), _
c(1, 20), c(1, 21), c(1, 22), c(1, 23))
Set c = wbkc.Sheets("Feuil1").Cells(1, 1)
dest = Array(c(4, 1), c(4, 3), c(3, 9), c(7, 9), c(8, 9), c(9, 9), _
c(14, 1), c(14, 3), c(14, 5), c(14, 6), c(14, 12), c(14, 14), _
c(14, 16), c(38, 1), c(38, 5), c(38, 9), c(38, 13))
For i = 0 To UBound(dest)
dest(i).Value = sourc(i).Value
Next