Sub MacroDelVide()
Dim DerLig As Long
DerLig = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:E" & DerLig).Select
Selection.AutoFilter Field:=4, Criteria1:="<>"
Selection.Copy Destination:=Range("A" & DerLig + 1)
ActiveSheet.ShowAllData
Range("A1:E" & DerLig).EntireRow.Delete
End Sub