Sub Anniv()
Dim DL%, i%, L%, Nb%, PlusProche, T
DL = [K10000].End(xlUp).Row
T = Range("G20:K" & DL)
PlusProche = 9 ^ 9
For i = 1 To UBound(T)
X = DateSerial(Year(Date), Month(T(i, 5)), Day(T(i, 5))) - Date
If X < PlusProche And X >= 0 Then L = i: PlusProche = X: Nb = X
Next i
[E11] = T(L, 1)
[F11] = T(L, 5)
[G11] = "Dans " & Nb & " jours."
[H11] = Int((Date - T(L, 5)) / 365.25) & " ans"
End Sub