Sub Atteindre()
Cells(Application.Rows.Count, "E").End(xlUp).Offset(1,0).select
End Sub
Sub Atteindre()
Dim DEST As Range
If Range("E5").Value = "" Then Set DEST = Range("E5") Else Set DEST = Range("E4").End(xlDown).Offset(1, 0)
DEST.Select
End Sub