Ne pas vider une ComboBox date après chaque Validation...

Bonjour à tout le forum,

Je souhaiterais votre aide afin de modifier ce code :
dans mon USF après avoir saisi, la CboDates se vide lorsque je valide, je voudrais que cette ComboBox laisse la date affichée, tant que je ne la change pas...

Private Sub CommandButton1_Click()
Dim L As Long, C As Byte
If CboDates.ListIndex = -1 Then CboDates.DropDown: Exit Sub
If ListBox1.ListIndex = -1 Then Exit Sub
L = CboDates.List(CboDates.ListIndex, 1)
C = Feuil2.[F1:AW1].Find(ListBox1, LookIn:=xlValues).Column
Feuil2.Cells(L, C) = TextBox2.Value
Feuil2.Cells(L + 1, C) = TextBox3.Value
TextBox1 = "": TextBox2 = "": TextBox3 = ""
CboDates.ListIndex = -1: ListBox1.ListIndex = 1
End Sub

Merci pour votre aide.
Bien à vous,
Christian