Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim x As Integer
Dim WkNouveau As Workbook, ShNouveau As Worksheet
Set WkNouveau = Workbooks.Add
Set ShNouveau = WkNouveau.Sheets(1)
ShNouveau.Name = "BASE"
With Me.ListBox1
For x = 1 To Me.ListBox1.ListCount
ShNouveau.Cells(x, 1) = Format(.List(x - 1, 0), "00000")
Next x
End With
ShNouveau.Columns(1).NumberFormat = "dd/mm/yyyy"
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Unload Me
End Sub