Bonjour,
via une fonction personnalisée
Function SuppCar(S$)
Dim i, j, k, R, flag
For i = 1 To Len(S)
k = Mid(S, i, 1)
flag = False
For j = 2 To [E2].End(xlDown).Row
If k = Cells(j, 5) Then flag = True
Next j
If flag Then R = R Else R = R & k
Next
SuppCar = R
End Function
J'ai été doublé par Fred ! et MFerrand que je salue ...