Sub Numerotation()
Application.ScreenUpdating = False
Dim Nom_Fichier As String
Sheets("Facture").Copy
ActiveSheet.Shapes("Numero").Select
Selection.Delete
Nom_Fichier = "Facture " & Sheets("Facture").Range("B16").Value & ".xls"
ChDir "C:\Users\mimi\Documents\factures"
ActiveWorkbook.SaveAs Filename:=Nom_Fichier
ActiveWorkbook.Close
Sheets("Facture").Select
Range("A21:F49,B10,B9,B10,B11").Select
Selection.ClearContents
Range("B16").Value = Range("B16").Value + 1
Range("B9").Select
End Sub