Public Sub Déplacement()
With ActiveCell
If Offset(0, 1).Value = Empty Then
.Offset(1, 0).Select
End If
End With
End Sub