Suppression des lignes a moitie vide

Tu fais un tri, afin de rassembler les lignes à moitié vides ; tu les sélectionnes toutes ensemble ; tu les supprimes.

merci pour votre aide

mais si je mets une macro qui me permet de supprimer dans un 1 er temps les lignes dans le nombre de cellule vide est supérieure 16

ça serait quoi

cordialement

merci

la macro pour supprimer les lignes a moitie vides est :

(le nombre de cellule vide est a compléter en feuil3 F3)

Sub SupprLignesVides()
Dim DerniereLigne As Long
Dim Compteur As Long
DerniereLigne = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
For Compteur = DerniereLigne To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(Compteur)) = Sheets(3).Range("F3").Value _
Then Rows(Compteur).Delete
Next Compteur
End Sub

cordialement