Dim rep As String, nom As String, wb As Workbook
rep = ThisWorkbook.Path & "\Facture\"
nom = Format(Month(Date), "00") & "_" & Year(Date) & ".xls"
If Dir(rep, vbDirectory) = "" Then
MkDir (rep)
set wb = Workbooks.Add
wb.SaveAs rep & nom
Else
Set wb = Workbooks.Open(rep & nom)
End If
Workbooks("Factureteste.xlsm").Sheets("Facture").Copy before:=wb.Sheets(1)