Bonjour,
Une proposition en PJ
J'ai pris en compte l'année de la colonne B
Si cela devait être l'année de la colonne H, remplacer cette ligne
.[L1] = "an": .Range("l2:l" & .UsedRange.Rows.Count).Formula = "=YEAR(b2)"
par
.[L1] = "an": .Range("l2:l" & .UsedRange.Rows.Count).Formula = "=YEAR(h2)"