Bonjour,
En tout cas, si jamais, voici un essai avec des lettres :
function MissingLetter(plage as range, lettres$) as string
for i = 1 to len(lettres)
if application.countif(plage, "*" & mid(lettres, i, 1) & "*") > 0 then mid(lettres, i, 1) = " "
next i
MissingLetter = replace(lettres, " ", "")
end function
fonction personnalisée à utiliser ainsi :
=MissingLetter(B1:B10;"12345")
qui renvoie un concaténation sans délimiteur pour le moment.
Cdlt,