Tenir compte que des ligne non filtrées en VB

Bonjour,

dans un tableau Excel, je fais un filte automatique sur mes lignes
sur les lignes qui restent visibles, qui ne sont pas des lignes voisines ... je dois aller en bout de ligne coller une valeur ....

après m'être positionné sur la première ligne si je fais, pour sélectionner toutes les lignes visibles :
Selection.End(xlDown).Select
Selection.Offset(0, 7).Select
Selection.PasteSpecial Paste:=xlValues

je colle me valeurs sur toutes les lignes y compris celle masquées

J'ai pensé à faire un boucle pour sauter de ligne en ligne :
Do While ActiveCell <> ""
Selection.Offset(0, 7).Select
Selection.PasteSpecial Paste:=xlValues
Selection.Offset(1, -7).Select
Loop

mais là encore la macro prend aussi en compte les lignes masquée ...

Lorsque l'on est dans cette configuration (ligne masquées) et que l'on appuie sur la flèche vers le bas du clavier, on saute bien de ligne visible en ligne visible... c'est cette fonction que j'aurai besoin de retranscrire.

Par avance un grand merci à qui pourra me faire part de ces éclairages sur ce soucis .
Salutations...