Sub test_2()
Dim Date_creation As String, NwWkb As Workbook
Date_creation = Format(Date, "dd-mm-yy")
Set NwWkb = Workbooks.Add(1)
NwWkb.Sheets(1).Name = "NomDeMonuniquefeuille"
NwWkb.SaveAs ThisWorkbook.Path & "\" & Date_creation & ".xlsx"
NwWkb.Sheets(1).Range("$A$1").Value = "test"
End Sub