Private Sub copiecollesave_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Rep = "C:\Documents and Settings\desbfl01\Mes documents\Exemple VBA\"
FichD = ActiveWorkbook.Name
For i = 1 To 3
If i = 1 Then FichS = "FA.xls"
If i = 2 Then FichS = "SB.xls"
If i = 3 Then FichS = "MJ.xls"
DligFichD = Sheets("Feuil1").Cells(65536, 1).End(xlUp).Row + 1
Workbooks.Open Rep & FichS
With Workbooks(FichS)
DligFichS = .Sheets("Feuil1").Cells(65536, 1).End(xlUp).Row
.Sheets("Feuil1").Range(Cells(2, 1), Cells(DligFichS, 8)).Copy _
Workbooks(FichD).Sheets("Feuil1").Cells(DligFichD, 1)
.Close
End With
Workbooks(FichD).Save
Next
End Sub