Private Sub CommandButton1_Click()
Worksheets("Feuil1").Cells.ClearContents
Workbooks.Open Filename:="D:\Test Import\Classeur2.xls"
With Workbooks("Classeur2.xls").Worksheets("Feuil1")
derlign = .Range("A2").End(xlDown).Row
.Range(.Cells(2, 1), .Cells(derlign, 9)).Copy _
Workbooks("Classeur1.xls").Worksheets("Feuil1").Range("A2")
End With
Workbooks("Classeur2.xls").Close False
End Sub