Option Explicit
Sub Deplacement_Palette()
Dim f1 As Worksheet, f2 As Worksheet
Dim i%: i = 2
Dim d1$, d2$
Set f1 = Sheets("Feuil1"): Set f2 = Sheets("Feuil2")
With f2
Do While .Cells(i, 2).Value <> ""
d1 = .Cells(i, 2).Value: d2 = .Cells(i, 3).Value
f1.Range(d1).Cut f1.Range(d2)
i = i + 1
Loop
End With
End Sub