SERIE.JOUR.OUVRE dans userform

Label1 = Application.WorksheetFunction.WorkDay(TextBox1, CInt(TextBox2), Range("A1:A10"))

Label1 = Format(40610, "dd/mm/yyyy")

Private Sub CommandButton1_Click()
Label1 = Application.WorksheetFunction.WorkDay(TextBox1, CInt(TextBox2), Range("A1:A10"))
'Label1 = Format(40610, "dd/mm/yyyy")Là ça va mais la date reste bloqué !!!
'Label1.Caption = Format(Date, "dd/mm/yyyy") Là il inverse
Range("b4") = Application.WorksheetFunction.WorkDay(TextBox1, CInt(TextBox2), Range("A1:A10")) et l à c'est la même chose, il inverse !

End Sub

Range("A1").FormulaLocal = (Format(Now() - 24, "dd/mm/2011"))