Sub Macro1()
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Documents and Settings\bibilolo\Mes documents\test.xls"
Sheets("Feuil1").Range("A10:D" & Range("A65535").End(xlUp).Row).ClearContents
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub