Sub sauvegardefeuille()
Dim vchemin As String
Dim vnum As String
Dim vnomfichier As String
vchemin = "c:\users\olivier\documents\archivesfactures\"
vnomfichier = "facture"
Worksheets("facture").[G2] = Worksheets("facture").[G2] + 1
vnum = [G2].Value
vnum = Format(Right(vnum, 4), "000000")
MsgBox vchemin + vnomfichier + vnum & ".xls"
Worksheets("facture").Copy
'enlever la remarque pour enregistrer
'ThisWorkbook.SaveAs vchemin + vnomfichier + vnum & ".xls"
End Sub