XL 2016 Regrouper plusieurs classeurs dans 1

[Scorpio]

Bonjour à tous,
J'ai ici, 5 classeurs et je regroupe les données de ces 5 classeurs dans le classeur "RECAP".
Les 5 classeurs sont pas ouvert.
Le code fonctionne, mais pas terrible, lors du regroupage, le bouton dans RECAP ce déplace de droite à gauche,
Est-ce que un membre pourrais, s'il vous plaît, me donner un petit coup de pouce, merci.
A+++

Attention: dans le code, adapter l'adresse ou se trouve les classeur.

 

[cp4]

Bonsoir,

Evite les Select, ils ralentissent le code pour rien.

Ensuite clic-droit sur ton bouton puis comme sur l'image, pour qu'il ne bouge plus

Corrige le début de ton code comme ci-dessous, je n'ai pas téléchargé les fichiers donc pas tester.

Sub CreationSynthese()
' Initialisation
Columns("A:C").Delete Shift:=xlToLeft
  
Range("A1") = "Région"
Range("B1") = "Immeuble"
Range("C1") = "Nombre"
JaunePale = 13434879
Range("A1:C1").Interior.Color = JaunePale
Range("A1:C1").Font.Bold = True

' Parcours de tous les fichiers
' -----------------------------

Bonne soirée.

 

[Scorpio]

Bonjour cp4,
Super, merci de ton aide, apparemment, cela fonctionne mieux.
Merci beaucoup et a+++