Bonjour,
Sans davantage de détails, c'est assez difficile de déterminer un code qui soit juste.
En tout cas, voici un premier essai à adapter, en passant par une fonction qui permet de retourner dans la dernière cellule de la plage (à 3 colonnes) les lettres manquantes dans chaque ligne (et rien sinon) :
Sub test()
with range("A1:C3")
for i = 1 to .rows.count
ml$ = MissingLetter(.rows(i), "ABC")
if ml <> "" then .cells(i, 3).value = ml
next i
end with
end sub
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
Cdlt,