Function nomPrenom(ByVal cel As String, ByVal x As Long)
Dim t, i&, z$
t = Split(cel, " ")
For i = 0 To UBound(t)
If x = 1 Then If t(i) = UCase(t(i)) Then z = z & " " & t(i)
If x = 2 Then If Not t(i) = UCase(t(i)) Then z = z & " " & t(i)
Next
nomPrenom = Trim(z)
End Function