Private Sub textbox21_change() 'TEXTBOX PREND LA VALEUR C
Set mondico = CreateObject("Scripting.Dictionary")
For Each C In Range(Sheets("B").[r2], Sheets("B").[r65000].End(xlUp))
' If C = Me.TextBox21 Then mondico(C.Offset(, -15).Value) = Format(C.Offset(, -15).Value, "mmm yyyy") 'test1
If C = Me.TextBox21 Then mondico(C.Offset(, -15).Value) = CDate(C.Offset(, -15).Value) 'test2
Next C
Me.ComboBox3.List = mondico.items
Me.ComboBox3.ListIndex = -1
Me.ComboBox4.ListIndex = -1
'Me.ListBox2.ListIndex = -1
End Sub