Sub depl()
Dim Nb, I, Lastc As Integer
Dim RngtoMove
Nb = [G3].Value
For I = 10 To 12
Lastc = Cells(I, 4).End(xlToRight).Column
Set RngtoMove = Range(Cells(I, Lastc - Nb + 1), Cells(I, Lastc))
RngtoMove.Cut
Cells(I, 4).Insert shift:=xlToRight
Next I
End Sub