Dim Derligne As Long
Sheets("Feuil1").Select
Range("B4").Select
Selection.End(xlDown).Select
Derligne = Range("H65536").End(xlUp).Row
Range("B4:H" & Derligne).Select
Selection.Copy
Sheets("Feuil2").Activate
Sheets("Feuil2").Range("A1").Select
ActiveSheet.Paste
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close
ActiveWorkbook.Activate
Application.CutCopyMode = False
Application.Quit