Option Explicit
Sub Vide_si_vide()
Dim i As Long
Application.ScreenUpdating = 0
For i = Range("a" & Rows.Count).End(xlUp).Row To 4 Step -1
If Range("a" & i) = "" Then Range("a" & i) = "zzzz"
Next
Range("a" & Rows.Count).End(xlUp).Sort Range("a4"), xlAscending, Header:=xlYes
Columns(1).Replace What:="zzzz", Replacement:="vide"
Application.ScreenUpdating = -1
End Sub