Date et heure Date de Paques utilisation subtile de l'epacte

Bonjour, pour le fun :
formule :
l'année en A1 :
=TRONQUE(DATE(A1;7;-CODE(STXT("NYdQ\JT_LWbOZeR]KU`";MOD(A1;19)+1;1)))/7)*7+8

fonction personnalisée :
Function Paques(target As Integer) ' ***************************** pour une année
'---------------------Function paques(target As date) ' *********** pour une date quelconque
'---------------------an = Year(target)
'limitation 1900-2100 vérifiée mais
an = Application.min(Application.Max(target, 1900), 2100)
paq = Int(DateSerial(an, 7, -Asc(Mid("NYdQ\JT_LWbOZeR]KU`", (an Mod 19) + 1, 1))) / 7) * 7 + 8
'-------------------------------------------------ne pas èluder le dernier caractère `
Paques = paq
End Function