Sub Enregister()
Dim Lecteur$, Fichier$, Nom$, Num$, sDate$
Nom = Cells(8, 4).Value
Num = Format(Cells(6, 4), "000") & Cells(6, 5) & Cells(6, 6)
sDate = Format(CDate(Cells(39, 2)), "dd-MM-YYYY")
Fichier = Nom & " Facture " & Num & " du " & sDate
If Dir("J:\") <> "" Then
Lecteur = "J:\"
ActiveWorkbook.SaveAs Lecteur & Fichier & ".xlsm"
End If
End Sub