VBA - Supprimer ligne sur condition apres filtrage

[Faz1]

Bonjour,

je suis débutant on m'a déjà bien aidé mais je bute sur un problème. j'ai une zone filtré. j'aimerais connaitre le nombre de ligne pour comparer avec une valeur attendu puis effacer les lignes en trop.

dans mon exemple on peut constaté après avoir lancé la macro que le module 10 à des lignes en trop (du au fichier d'origine) il faut que j'arrive à supprimer ces lignes en trop au début.
on considère qu'il y a au maximum 100 lignes donc je pensais comptage de ligne puis soustraction de 100 et suppression des premiers lignes. ce sont forcement les premières qui sont en trop.

J'ai essayé différentes façon mais je n'y arrive pas si c'est possible de m'aider.

Merci

 

[Faz1]

Re : VBA - Supprimer ligne sur condition apres filtrage

j'y arrive presque j'ai rajouter ce code c'est la partie n gras qui ne marche pas ! personne ne peut m'aider

If Application.Subtotal(103, .Columns(1)) > 100 Then
rwCt = 0
Set r = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
N = r.Areas.Count
For i = 1 To N
rwCt = rwCt + r.Areas(i).Rows.Count
Next i
rwCt = rwCt - 100
Rows("1:rwCt").Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Offset(1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
'.Offset(rwCt, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End If

 

[Faz1]

Re : VBA - Supprimer ligne sur condition apres filtrage

Personne ne peut m'aider ? je continue a faire plein de test mais jamais concluant!😕