Bonjour à tous,

Je vous sollicite car je n'arrive pas à réaliser l'opérations que je souhaite. Explication :

J'ai un fichier qui s'apelle Test contenant 3 feuilles :
. Sur ces 3 feuilles, la première ligne est identique pour chacune d'elles.
. Contenu différent.
. Certaines cellules des 3 premières colonnes sont fusionnées.

Je souhaiterai copier le contenu des trois feuilles (jusqu'a la dernière cellule de la colonne B) vers une seule feuille dans autre classeur.
De plus lorsque le copier/coller des feuilles est terminé, je souhaite appliquer la fonction unmerge sur les cellules fusionner et copié le contenu des cellules qui était fusionné.

Voilà mon code, simplement c'est qu'il y a une erreur et je n'arrive pas à trouver la solution :
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
Sub Copier()
 
Dim LastLig As Long
 
With Workbooks("Test.xlsm")
 
Var_Chemin = "C:\CopieTest.xlsx"
fichier1 = ActiveWorkbook.Name
Workbooks.Open Var_Chemin, 0, ReadOnly:=False
Fichier2 = ActiveWorkbook.Name
LastLig = Worksheets.Cells(.Rows.Count, "B").End(xlUp).Row
 
For lngCount = 1 To Workbooks(fichier1).Worksheets.Count
 
 
Workbooks(fichier1).Sheets(lngCount).Range("A1:E" & LastLig)Copy Before:=Workbooks(Fichier2).Sheets("Feuil1")
 
Next
End With
End Sub
Voici également les fichiers:Test.xlsx
CopieTest.xlsx.

J'èspere avoir été précis, en tout cas je vous remercie d'avance pour vos réponse.

Bonne journée.