Bonjour Frangy et gmb, merci beaucoup pour vos réponses !
Gmb je me suis inspiré des macros que tu m'as fournis pour ajuster à ma situation. Cependant, quelques petits trucs m’agacent encore.
D'abord, comme les feuilles du fichier original avec lequel je travail n'ont pas toutes le même nombre de lignes et colonnes et que celles-ci ne sont pas disposées de la même façon, crois tu qu'en effectuant
tablo = f.Range("A2:D" & f.Range("A" & Rows.Count).End(xlUp).Row)
si je sélectionne jusqu'à Z : tablo = f.Range("A2:Z" & f.Range("A" & Rows.Count).End(xlUp).Row) je pourrais m'assurer de tout avoir ?
De plus, j'arrive maintenant à masquer SCIAN et à filtrer par nombre d'employés, avec un SOUS.TOTAL j'obtiens ce que je cherchais ! Mission accomplie (presque).
FInalement, un dernier petite truc, j'ai modifié ta fonction AfficherTout pour qu'elle comporte un ActiveSheet.ShowAllData, ainsi qu'un ajustement de la hauteur des lignes (auparavant, en filtrant quelques fois certaines lignes se retrouvaient cachées...) mais quand j'effectue le ShowAllData mais qu'il n'y as pas de filtre actif, la fonction arrête à la ligne ActiveSheet.ShowAllData. Peut-être connais-tu une façon de créer une condition du type SI filtre actif ALORS ActiveSheet.ShowAllData ?
Voici le fichier avec lequel je travail, toutes les macros utiles sont dans le Module_gmb
Merci beaucoup,
Votre aide m'est très précieuse
David