Function Nom(chaine)
Application.Volatile
If UCase(chaine) = chaine Then
temp = chaine
Else
If InStr(chaine, " ") > 0 Then
a = Split(chaine, " ")
i = UBound(a)
Do While UCase(a(i)) = a(i) And i > LBound(a): i = i - 1: Loop
For k = i + 1 To UBound(a): temp = temp & a(k) & " ": Next
Else
temp = chaine
End If
End If
Nom = Trim(temp)
End Function
JB