...si le résultat est dans la cellules A2, il ne la voie pas.
nbLignes = Range("A65536").End(xlUp).Row 'retour le numero de la dernière ligne non vide
Re,
Staple, pas compris pourquoi le 4 te gêne...
De mon côté, tout ce que je peux dire est que la fonction Find n'est pas bien adaptée à la recherche avec un filtre en place.
Utilisez donc la ligne de code suivante :
Code:nbLignes = Range("A65536").End(xlUp).Row 'retour le numero de la dernière ligne non vide
A+
nbLignes = Cells.Find("*", Range("A65536"), , , xlByRows, xlPrevious).Row 'retour le numero de la dernière ligne non vide