Function PrenomNom$(t$, liste As Range, n%)
Dim s, i%, j As Variant, k As Variant
s = Split(t)
For i = 0 To UBound(s)
If Len(s(i)) >= n And (j = "" Or k = "") Then
If Application.CountIf(liste, s(i)) Then
If j = "" Then j = i
Else
If k = "" Then k = i
End If
End If
Next
PrenomNom = UCase(IIf(j = "", "", Left(s(j), 3)) & IIf(k = "", "", Left(s(k), n)))
End Function