Private Sub newfeuille_Click()
Dim nom, chemin As Variant
Dim plage As Range
Dim DLig As Long
With Sheets("facture")
DLig = .Range("c65536").End(xlUp).Row
Sheets("facture").Copy
nom = Sheets("facture").Range("D17").Value & " - " & Sheets("facture").Range("J5").Value & ".xls"
Select Case (Range("D1"))
Case Is = "FACTURE": chemin = "c:\Facture" & "\Facture\"
Case Is = "FACTURE SAV": chemin = "c:\Facture" & "\Facturesav\"
Case Is = "FACTURE D'ACOMPTE": chemin = "c:\Facture" & "\Factureacompte\"
Case Else: chemin = "c:\Facture" & "\Devis\"
End Select
ActiveWorkbook.SaveAs Filename:=chemin & nom, _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
MsgBox "Votre sauvegarde porte la référence : " & " " & nom
DLig = .Range("C19").End(xlDown)(1).Row
If DLig > 19 Then
Set plage = .Range("C19:B" & .Range("C19").End(xlDown)(1).Row - 3)
plage.EntireRow.Delete
End If
.Range("J5:J10").Value = ""
End With
'Sauvegarde les modifications
ActiveWorkbook.Save
ActiveWindow.Close
End Sub