Bonsoir,
une solution avec une fonction personnalisée, à mettre dans un module
Function motauth(liste, listea)
t = Split(liste, ",")
For i = LBound(t) To UBound(t)
Set re = listea.Find(Trim(t(i)), lookat:=xlWhole, LookIn:=xlValues)
If Not re Is Nothing Then
m = m & t(i) & ","
End If
Next i
motauth = Left(m, Len(m) - 1)
End Function
appel de la fonction
=motauth(liste, listea)
où liste est la cellule qui contient la liste des mots à valider par rapport à listea qui est une plage de cellules qui contient les mots autorisés.