bonjour a tous

tout d'abords je sais tres bien que l'on trouve ici et la des codes donnant la date de paques

mais je voudrais convertir en vba une formule qui fonctionne tres bien et je n'y arrive pas

la formule
= ARRONDI(DATE(B1;4;MOD(234-11*MOD(B1;19);30))/7;0)*7-6
un essai sans succes j'ai 5 ou 4 jours de trop a chaque fois selon les années
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Sub testy()
Dim x
x = 234 - (11 * (2018 Mod 19))
x = (x Mod 30) / 7
x = Round((x * 7) - 6)
x = Round(CLng(CDate(Round(x) & "/4/2018")))
MsgBox CDate(DateSerial(1900, 1, 1)) + x
End Sub
si quelqu'un sait faire je prends