problème format cellule

bonjour le forum et bon dimanche,

J'ai le code ci-dessous, qui me recopie une listbox à 4 colonnes, dans l'onglet "imprimer" à partir de la cellule A8. ( A8:A65536 = date jj/mm/aaaa)

With ListBox1
If Not .ListCount = 0 Then 'si listbox n'est pas vide
Sheets("imprimer").Range("A8").Resize(.ListCount, .ColumnCount) = .List
End If
End With

Le soucis est qu'une fois copié dans l'onglet :

de A8 à A13 le format est mm/jj/aaaa format cellule = Date

et après A14 le format est bon jj/mm/aaaa format cellule = Standard

Que faire pour obtenir le format jj/mm/aaaa de A8:A65536 ?

Merci.