Option Explicit
Sub Deplacer()
Dim i As Integer, derligne As Integer, dercol As Integer
derligne = Range("A" & Rows.Count).End(3).Row
dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For i = 1 To derligne
If Not Intersect(Selection, Cells(i, dercol)) Is Nothing Then Exit Sub
If Not Intersect(Selection, Cells(i, dercol + 1)) Is Nothing Then Exit Sub
Next
If Selection.Offset(, 1) = "" Then Selection.Offset(, 1).Select: Exit Sub
For i = 1 To dercol
If Selection.Offset(, i) <> "" And Selection.Offset(, i + 1) = "" Then Selection.Offset(, i + 1).Select: Exit Sub
Next
End Sub