Sub Macro1()
Dim Source As Workbook, Cible As Workbook
Set Source = Workbooks("C:\Documents and Settings\pc-maison\Bureau\ESSAI\Classeur2.xlsm")
Set Cible = Workbooks("C:\Documents and Settings\pc-maison\Bureau\ESSAI\Classeur1.xlsm")
Source.Sheets("Feuil1").Range("E2:E" & [E65536].End(xlUp).Row).Copy _
Destination:=Cible.Sheets("Feuil1").Range("C65536").End(xlUp)
End Sub