Copier les valeurs de toute mes pages et coller tout sur une nouvelle page

Bonjour,

J'ai une macro qui va prendre toutes les cellules a copier sur les feuilles autres que celles que j'ai exclues et qui va coller l'ensemble à la suite sur une feuille choisie.

Mon problème est que le copié s'applique à toute la feuille et j'aimerai que la copie ne se fasse que sur les cellules visibles (arborescence) et que le coller soit uniquement des valeurs.

Quelqu'un aurait une idée?

Merci beaucoup

voici mon code:

Sub Recup()

    

    For Each Fe In ThisWorkbook.Worksheets
    
        If Fe.Name <> "Récap" And Fe.Name <> "Matrice" And Fe.Name <> "MODELE" Then
        
            With Fe
  
                Set Plage = .Range(.Cells(22, 1), _
                            .Cells( _
                            .Cells.Find("*", .[A1], -4123, , _
                            1, 2).Row, _
                            .Cells.Find("*", .[A1], -4123, , _
                            2, 2).Column))
                            
            End With
 
            Plage.Copy _
            Worksheets("Récap").Range("A65536").End(xlUp).Offset(1, 0)
            
        End If
        
    Next Fe

End Sub