Feuille dans un userform

Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")
Derlig = Range("A2").End(xlDown).Row
TotLig = -1
ListBox1.Clear
With ListBox1
 For Lig = 2 To Derlig
  If CDate(Cells(Lig, 1).Value) = CDate(ComboBox1.Value) Then
     .AddItem: TotLig = TotLig + 1
     For I = 0 To 2: .List(TotLig, I) = Cells(Lig, I + 1).Value: Next
  End If
 Next
End With
End Sub

Private Sub UserForm_Activate()
ComboBox1.Clear
Derlig = Range("A2").End(xlDown).Row
For Lig = 1 To Derlig
 If IsDate(Cells(Lig, 1).Value) Then ComboBox1.AddItem Cells(Lig, 1).Value
Next
ComboBox1.ListIndex = -1
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub