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