Copie feuilles dans un autre classeur VBA

Bonjour,

je travail dans un dossier dont l'adresse est C:\Users\TMEZ\Desktop\test

Sur ce dossier j'ai un classeur qui s'appel AVP et 8 autre classeur A1, A2, A3, A4, A5, A6, A7 et A8.

AVP contient 8 feuille de A1 à A8

chaque classeur A1, A2, A3, A4, A5, A6, A7 et A8 contient une seule feuille

je souhaite créer une macro VBA Excel sur le calsseurs EVP qui va copier les classeur A1, A2, A3, A4, A5, A6, A7 et A8 après la premier feuille active du fichier AVP :

Merci d'avance

Bonjour,

A tester

Option Explicit

Private Sub GenereDoc_Click()
Dim DosSource, FichierA As String
Dim ws As Worksheet
Dim List As Integer
Application.ScreenUpdating = False

'Chemin d'acces
DosSource = "C:\Users\TMEZ\Desktop\test"

If Right(DosSource, 1) <> "\" Then DosSource = DosSource & "\"
If Dir(DosSource, vbDirectory) = vbNullString Then MsgBox (DosSource & Chr(10) & "Dossier non trouvé"): Exit Sub

FichierA = Dir(DosSource)
Do While FichierA <> ""
    If Left(FichierA, 1) = "A" Then
        Workbooks.Open Filename:=DosSource & FichierA, ReadOnly:=True
        Workbooks(FichierA).Worksheets.Copy After:=ThisWorkbook.ActiveSheet
        Workbooks(FichierA).Close SaveChanges:=False
    End If
    FichierA = Dir
Loop
ActiveWorkbook.Sheets(1).Activate

ActiveWorkbook.Save

MsgBox ("Fin")
Application.ScreenUpdating = True
End Sub

A+