Liste deroulante (affichage des valeurs en format date)

Bonjour à tous

j'ai crée une liste déroulante via VBA excel, le problème est que mes données sont des dates et s'affichent de la façon suivante: "42471"
J'aimerai pouvoir changer le format de ma liste de nombre pour que mes dates s'affichent correctement

extrait:

Private Sub Worksheet_Activate()
    Dim a As Integer
    Liste_date.Clear 'liste_date est ma liste déroulante
    For a = 2 To 397
        Liste_date = Feuil2.Cells(a, 72).Value
        If Liste_date.ListIndex = -1 Then
            Liste_date.AddItem Feuil2.Cells(a, 72).Value  'je remplit ainsi ma liste déroulante en date 
        End If
    Next a

Comment je peux faire pour que l'affichage se fasse en format date?

Merci d'avance

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.