Problème de macro sur le nommage de feuille

Bonjour,

j'ai un petit soucis sur une de mes macro :
- j'ai un bon en onglet 1 (qui correspond en fait Feuil4) et quand je clique dessus je voudrais que les données consolidées se mettent en feuil1 (comme inscrit ci-dessous).

le problème que j'ai c'est que quand je clique sur le bouton, les données vont sur la même page que le bouton et pas en Feuil1

je précise que je ne voudrais pas noter la feuille 1 dans la macro par son vraie nom car je ne suis jamais à l'abri que quelqu'un modifie le nom. En gros je voudrais protéger mes feuilles au cas où les noms changent

Feuil1 = ma feuille de conso où les données devraient être
Feuil2 = table de données qui me servira à faire une recherche V
Feuil3 = feuille pour un TCD
Feuil4 = Feuille où il y a les boutons

voici la macro en question :

Sub syntèseClasseurs()
Dim ClasseurRecap As Workbook, feuilRec As Worksheet, feuilTable As Worksheet
Dim ClassImp As String, NomFeuilleImp As String, Repertoire As String, DerLigRecap As Long, DerLigImp As Long, Poste As Variant, Pays As Variant, Code As String
Dim i As Integer ' Pour comptage des feuilles

'Rows("3:" & Cells(Rows.Count, 2).End(xlUp).Row + 1).Delete

'--- Limitation des applications.
Application.ScreenUpdating = False
Application.DisplayAlerts = False

'--- Détermination des variables.
Set ClasseurRecap = ThisWorkbook: Set feuilRec = Feuil1: Set feuilTable = Feuil2
DerLigRecap = Cells(Rows.Count, 2).End(xlUp).Row
Repertoire = ThisWorkbook.Path: ClassImp = Dir(Repertoire & "\*.xls*") ' premier fichier


' Détermination DernièreLigne
If DerLigRecap <= 1 Then
DerLigRecap = 2
End If

'--- On boucle les fichiers.
Do While ClassImp <> "" ' Pour chaque fichier
If ClassImp <> ThisWorkbook.Name Then
Workbooks.Open Filename:=Repertoire & "\" & ClassImp



merci par avance pour votre aide