Public Function EXTRAIT(c As String) As String
Dim k As Integer, p As String, titi
titi = Split(c, " ")
For k = 0 To UBound(titi)
Select Case True
Case titi(k) Like "[A-Z][A-Z]*"
titi(k) = Left(titi(k), 2)
Case Else
If titi(k) Like "[A-Z]*" Then p = Left(titi(k), 1) & "-"
titi(k) = ""
End Select
Next
EXTRAIT = p & Join(titi, "")
End Function