Sub TrierSupprimerLignesTableau()
Dim tbl As Range
Dim Lignes As Long
'
' Récupération du tableau
Set tbl = ActiveCell.CurrentRegion
' Récupération du nombre de données en première colonne
Lignes = Application.CountIf(tbl.Columns(1), "*?")
' Si différence du nombre de lignes total du tableau -1 (entête)
' et le nombre de données en colonne 1
If Lignes < tbl.Rows.Count - 1 Then
' Tri des données en ordre descendant sur première colonne
tbl.Sort Key1:=tbl.Range("A2"), Order1:=xlDescending, Header:=xlYes
'Suppression des lignes
tbl.Cells(Lignes + 1, 1).Resize(tbl.Rows.Count - Lignes, tbl.Columns.Count).Delete xlShiftUp
End If
End Sub