Extraire la première lettre en majuscule en excel

 Option Explicit
'-------
Function Majuscule_mot(texto As String)
Dim separe() As String, mot As String, Cptr As Integer, Lettre As String * 1
separe = Split(texto)
For Cptr = LBound(separe) To UBound(separe)
    mot = separe(Cptr)
    Lettre = extraire_1°maj(mot)
    If Lettre <> " " Then: Majuscule_mot = Majuscule_mot & " " & Lettre
Next
End Function
'--------
Public Function extraire_1°maj(texto As String)
Dim reg As Object
Dim extraction As Object
Dim Maj
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
    reg.Pattern = "([A-Z ])"
    
    Set extraction = reg.Execute(texto)
    For Each Maj In extraction
        extraire_1°maj = extraire_1°maj & Maj.Value
    Next Maj
    extraire_1°maj = Left(Trim(extraire_1°maj), 1)
End Function