Function cléunique(ligne, Optional F$)
Dim formule$
If F = "" Then F = ActiveSheet.Name
formule = "=F!BZ & ""_""& MONTH(F!EZ) & ""_"" & SUMPRODUCT( (F!$B2:bZ=F!bZ) * (TEXT(F!$E2:EZ,""aamm"")=TEXT(F!EZ,""AAMM"")))"
formule = Replace(Replace(formule, "Z", ligne), "F!", F & "!")
'Debug.Print formule
cléunique = Evaluate(formule)
End Function