Bonjour

Je cherche à fusionner certaines feuilles ( nom = "detail" ou "sheet1" ) de tous les classeurs vers un seul classeur
Comment faire ?
ci dessous la source :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub fusion()
        On Error GoTo gesterreur
        Dim VarListeFichiers As Variant, VarFichier As Variant, WkClasseur As Workbook, WkFinal As Workbook, WsFeuille As Worksheet
 
        VarListeFichiers = Application.GetOpenFilename(filefilter:="Classeurs eXceL,*.xls", Title:="Choisissez les Classeurs à récupérer", MultiSelect:=True)
        If VarType(VarListeFichiers) = vbBoolean Then MsgBox "Abandon !": Exit Sub     'pour identifier le bouton annuler
        Set WkFinal = Workbooks.Add 'générer le classeur final
 
        For Each VarFichier In VarListeFichiers
           Set WkClasseur = Workbooks.Open(Filename:=VarFichier)
           For Each WsFeuille In WkClasseur.Worksheets
                       WsFeuille.Move before:=WkFinal.Worksheets(1)
                   Next WsFeuille
           WkClasseur.Close savechanges:=False
        Next VarFichier
        Exit Sub
gesterreur:
        'classeur vide
        If Err.Number = -2147221080 Then
        Resume Next
        End If
         End Sub
Merci