Private Sub ComboBox1_Click()
With ComboBox1
If .ListIndex <> -1 Then .Value = Format(.Value, "dd/mm/yy")
End With
End Sub
Private Sub CommandButton1_Click()
Dim x As Range
With Sheets("Feuil1")
Set x = .Columns(2).Find(CDate(ComboBox1.Value), , xlValues, xlWhole, , , False)
If Not x Is Nothing Then x.Resize(, 3).Copy Destination:=Sheets("Feuil2").Range("B1")
End With
End Sub
Private Sub UserForm_Initialize()
With Sheets("Feuil1")
ComboBox1.List = .Range("B3", .Range("B65536").End(xlUp)).Value
End With
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yy")
End Sub