Microsoft 365 Transfert listbox, problème les dates

  With Sheets("Result")
    For i = 2 To .Range("E65500").End(xlUp).Row
        .Cells(i, "E") = Format(.Cells(i, "E"), "dddd dd mmmm yyyy")
        .Cells(i, "F") = Format(.Cells(i, "E"), "dddd dd mmmm yyyy")
    Next i
  End With

  f.[A2].Resize(n) = Application.Index(Tbl, , 1) 'Société
  f.[B2].Resize(n) = Application.Index(Tbl, , 2) 'Compte
  f.[C2].Resize(n) = Application.Index(Tbl, , 3) 'Somme
  f.[D2].Resize(n) = Application.Index(Tbl, , 4) 'Facture N°
  f.[E2].Resize(n) = Application.Index(Tbl, , 5) '"dddd dd mmmm yyyy") 'Date du payement
  f.[F2].Resize(n) = Application.Index(Tbl, , 6) 'Echéance le:
  f.[G2].Resize(n) = Application.Index(Tbl, , 7) 'Année:
  f.[H2].Resize(n) = Application.Index(Tbl, , 8) 'Mois:
  With Sheets("Result")
    For i = 2 To .Range("E65500").End(xlUp).Row
        .Cells(i, "E") = Format(.Cells(i, "E"), "dddd dd mmmm yyyy")
        .Cells(i, "F") = Format(.Cells(i, "E"), "dddd dd mmmm yyyy")
    Next i
  End With

f.Range("$A$2").Resize(1+UBound(Tbl, 1), 1+UBound(Tbl, 2)) = Tbl

Dim DerLgn As Long
With f
 DerLgn = .Cells(.Rows.Count, 5).End(xlUp).Row
          .Range(.Cells(2, 5), .Cells(DerLgn, 6)).NumberFormat = "dddd dd mmmm yyyy"
'ou
'         .Cells(2, 5).Resize(DerLgn, 2).NumberFormat = "dddd dd mmmm yyyy"
End With

f.Range("$A$2").Resize(1+UBound(Tbl, 1), 1+UBound(Tbl, 2)) = Tbl

NbFactures=1 + UBound(Tbl)

f.Range("$A$2").Resize(UBound(Tbl, 1),UBound(Tbl, 2)) = Tbl

NbFactures=UBound(Tbl)

Me.NbFactures = UBound(TblBD) & " factures trouvées"