function anneeentredeuxdates(a1 as range, a2 as range) as string
deb = year(a1.value)
fin=year(a2.value)
for i = deb+1 to fin-1
anneeentredeuxdates= anneeentredeuxdates & i & ", "
next i
anneeentredeuxdates = left(anneeentredeuxdates,len(anneeentredeuxdates)-2)
end function
Tu mets tes dates en A1 et A2
=anneeentredeuxdates(a1;a2)