re
et avec mon modèle vba aussi
principe de l'ABS de datediff("d",date1,date2)
Q = Abs(DateDiff("d", Date, D, vbMonday, vbUseSystem)): If Q < Q2 Then Q2 = Q
d'ailleurs dans mon modèle il y a une liste déroulante pour changer l'année
pour 2025 le jour le plus proche sera forcement le 01/01/2025
pour 2023 le jour le plus proche ce sera forcement le 31/12/2023