Je n'avais pas vu le coté déplacement; par formule je ne sais pas faire
Code:
Sub DecalImpair()
With Worksheets("Feuil1")
For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row Step 2
.Cells(i - 1, 2) = .Cells(i, 1)
.Cells(i, 1).ClearContents
Next
End With
End Sub