XL 2016 Date en majuscule via userform (résolu)

 TextBox2.Value = UCase(Format(TextBox2.Value, "yyyy-mmm-dd"))

Private Sub CommandButton1_Click()
    Range("B6") = UCase(Format(TextBox2.Value, "yyyy-mmm-dd"))
End Sub

Private Sub TextBox2_Change()
    With TextBox2
        If Len(.Value) = 10 And IsDate(.Value) Then
            TextBox2.Value = UCase(Format(CDate(TextBox2.Value), "yyyy-MMM-dd"))
        End If
    End With
End Sub

Private Sub CommandButton1_Click()
            'Range("B6").Select
            Range("B6") = DateValue(TextBox2.Value)
             Range("B6").NumberFormat = UCase("yyyy-mmm-dd")'??????????????????????
End Sub

Private Sub UserForm_Initialize()
Dim Articles As Variant
    'TextBox2 = Date
    'TextBox2 = CDate(TextBox2.Value)
    TextBox2.Value = Format(Date, "yyyy-mmm-dd")
End Sub

Private Sub CommandButton1_Click()
    Range("B6") = TextBox2.Text
End Sub

Private Sub UserForm_Initialize()
    Dim Articles As Variant, arDate
    arDate = Array(Year(Date), Left(Format(Date, "mmm"), 3), Format(Date, "dd"))
    TextBox2 = UCase(Join(arDate, "-"))
End Sub