Resultat SpecialCells diffère selon Sub / Fonction

Bonjour, je cherche à crée une fonction pour récupérer la plage non contigu d'une zone filtrée. Problème j'arrive à récupérer cette info avec specialcells dans un sub , Debug.Print F.Range("E12:E40").SpecialCells(xlCellTypeVisible).Address me renvoie alors $E$12:$E$13,$E$15:$E$18,$E$23,$E$26:$E$28,$E$30:$E$34,$E$36:$E$37,$E$40 , ce que je désire, mais dans une fonction la même ligne de code me renvoie "$E$12:$E$40" quelqu'un sait d'où ça vient ? comment contrer ça ? J'ai essayer de passer par une variable public avec un appel du sub dans la fonction pour calcul de cette variable mais rien n'y fais impossible de récupérer le même résultat.
Merci à vous

Bonjour,

ci_jointe une proposition

bonjour j'ai contouner le problème en passant par la fonction Matricielle FILTRE au lieu de chercher à faire des opération sur un tableau filtré mais ta solution convenait très bien, juste compliqué la boucle pour un gros volume de données mais je garde sous le coude! merci pour ta contrib