Sub Copiercoller()
Dim f1 As Worksheet, f2 As Worksheet
Set f1 = Sheets("Personnels2018")
Set f2 = Sheets("Personnels2017")
With f1
.Range("B10:w10").Copy f2.Range("c23")
.Range("T10:U10").Copy f2.Range("k25")
.Range("L10:S10").Copy f2.Range("C27")
End With
End Sub