Sub Lgn_vides()
Const formul = "=IF(CONCAT(plage)="""",NA(), ROW())"
Dim derlig&, dercol&, plage
Application.ScreenUpdating = False
With Sheets("RdV_faits")
.Select
If .FilterMode Then .ShowAllData
If .Range("a2") = "Auxil" Then .Columns(1).Delete
.Columns(1).Insert: .Range("a2") = "Auxil"
derlig = .UsedRange.Row + .UsedRange.Rows.Count - 1
dercol = .Cells(2, 1).End(xlToRight).Column
If derlig <= 2 Then .Columns(1).Delete: Exit Sub
plage = "a3:a" & derlig
.Range("a3") = Replace(formul, "plage", plage)
.Range("a3").AutoFill Destination:=Range(plage)
.Range(plage) = Range(plage).Value
.Range(plage).Resize(, dercol + 1).Sort key1:=.Range("a3"), order1:=xlAscending, Header:=xlNo
On Error Resume Next
.Columns(1).SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
On Error GoTo 0
If .Range("a2") = "Auxil" Then .Columns(1).Delete
End With
End Sub