Copier feuille dans classeur fermé avec boucle

[joelpelle]

Bonjour le Forum,

A nouveau bloqué dans mon projet, je reviens vers vous pour vous poser mon problème.

Je souhaite copier l'ensemble des feuilles (sauf la première) de classeurs fermés, tous identiques (sauf les données bien sûr ) d'un répertoire donné dans un classeur ouvert/ C:\Test\Prov
Jusque là j'ai réussi, mais je bute pour ne pas copier la première entre autre...
Ge que je souhaite faire, c'est une boucle qui me copie classeur par classeur qui lance ma Maco1 puis 2, et qui passe au classeur suivant, lance la Macro1, puis deux etc..., jusqu'à ce que tous les classeurs soient copiés.
Je bute sur la boucle et le lancement des macros.
Les fichiers joints sont un bon exemple de ce que je souhaite obtenir.

Voici le code d'importation des classeurs et je ne sais pas où mettre la boucle et les macros, avec mes annotations:
De plus je n'ai toujours pas trouvé la manière de ne pas copier ma première feuille

Sub Copier()
Dim Tblo
Dim Repertoire As String
Dim Msg, Style, Title, Response, MyString
Dim wk As Workbook
Dim wk1 As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
NOM_PLAGE
Set wk = ThisWorkbook
Repertoire = "C:\Test\Prov\"
Tblo = Dir(Repertoire)
While Tblo <> ""
If LCase(Right(Tblo, 4)) = ".xls" Then
Set wk1 = Workbooks.Open(Repertoire & Tblo)
'Ici Copier toutes les feuilles sauf la première
wk1.Worksheets.Copy After:=wk.Sheets(wk.Sheets.Count)
wk1.Close False
' Lancer la macro copierVers
' Lancer la macro Supprime_Onglet et boucler sur le classeur suivant
End If
Tblo = Dir()
Wend
 Sheets("SYNTHESE").Activate
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

J'ai 48 fichiers d'une cinquantaine d'onglets chacun, pour vous dire !
Reporting quand tu nous tiens

Merci pour votre aide, je sens que le W-E sera studieux, pour moi j'entends

Bien cordialement