Condition appel d'un module ne fonctionne pas

Bonjour à tous, je sollicite votre aide car je n'arrive à faire fonctionner mon code

je réalise un double filtre, si le résultat des filtres rend au moins une ligne, alors je réalise une action (appeler un module), sinon, je passe à la suite du code.

Hélàs, cela ne fonctionne pas car dans le cas où il y a en effet des cellules visibles, le module n'est pas appelé.

ci dessous, mon code :

Dim Rng As Range
Set Rng = Selection

ActiveSheet.Range("A:AB").AutoFilter Field:=17, Criteria1:="<>"
ActiveSheet.Range("A:AB").AutoFilter Field:=16, Criteria1:="<>"

Set Rng = Range("P:Q").SpecialCells(xlCellTypeVisible)

If Rng.Columns("P:Q").SpecialCells(xlVisible).Count - 1 > 1 Then

Module5.reglagesheettemporary

End If

merci par avance pour votre aide.

Bien cordialement,

mama

Bonjour

Et avec If Rng.Columns("P:Q").SpecialCells(xlVisible).Count - 1 >0

je vous remercie maintenant quand les filtres rendent au moins une ligne le module est bien appelé.

Cependant, lorsque les filtres rendent 0 lignes, le module est tout de même appelé... auriez-vous une solution ?

Merci par avance