Copie de 2 fichiers en un seul

Sub Bouton1_QuandClic()

Dim LigneCopiageFin As Long
Dim LigneCollage As Long
Dim LigneCopiageFin2 As Long
Dim LigneCollage2 As Long

'Traitement du Fichier 1 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Workbooks.Open Filename:="C:\Documents and Settings\bdu\Bureau\Excel_FSI\Perf1.xls"

LigneCopiageFin = Range("A65535").End(xlUp).Row
Range("A2:G" & LigneCopiageFin).Copy

Windows("Rslt.xls").Activate

LigneCollage = Range("A65535").End(xlUp).Row
LigneCollage = LigneCollage + 1

Range("A" & LigneCollage).Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
  
' Traitement du Fichier 2 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Workbooks.Open Filename:="C:\Documents and Settings\bdu\Bureau\Excel_FSI\Perf2.xls"

LigneCopiageFin2 = Range("A65535").End(xlUp).Row
Range("A2:G" & LigneCopiageFin2).Copy

Windows("Rslt.xls").Activate

LigneCollage2 = Range("A65535").End(xlUp).Row
LigneCollage2 = LigneCollage2 + 1

Range("A" & LigneCollage2).Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 
' Fermeture des différents fichiers excel sauf celui de la macro '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim n As Integer

n = Workbooks.Count
MsgBox "Il y a " & n & " fichier(s) excel ouvert "
Do Until Workbooks.Count = 1
If Not Workbooks(n).Name = ActiveWorkbook.Name Then Workbooks(n).Close
Loop

' Fermeture des différents fichiers excel sauf celui de la macro '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim n As Integer

n = Workbooks.Count
MsgBox "Il y a " & n & " fichier(s) excel ouvert "
Do Until Workbooks.Count = 1
If Not Workbooks(n).Name = ActiveWorkbook.Name Then Workbooks(n).Close
[COLOR="Red"]n=n-1[/COLOR]
Loop