Sub Total()
Dim Chemin1$, Client$, Fichier$, Numfact$
Chemin1 = "C:\Users\Julien\Documents\AE\"
Client = Range("E5")
Numfact = Range("B12")
Fichier = Numfact & ".xls"
If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client
ActiveWorkbook.SaveAs Chemin1 & Client & "\" & Fichier
Dim num As Integer
Range("B12").Select
num = Range("B12").Value
num = num + 1
Range("b12").Value = num
Sheets("FACTURES").Range("A15:A27,F15:F27,E5").ClearContents
End Sub