Microsoft 365 Initiales du Username

NomUserName = Environ("UserName")

Sub Test()
MsgBox Initiales_Utilisateur, vbOKOnly + vbInformation
End Sub
Function Initiales_Utilisateur$()
    Dim Compte_Utilisateur As Object, Chaine_Test$
    On Error Resume Next
    Set Compte_Utilisateur = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2:Win32_UserAccount.Domain='" & Environ("userdomain") & "',Name='" & Environ("username") & "'")
    If Err = 0 Then
            Chaine_Test = Left(Compte_Utilisateur.FullName, 1)
            If InStr(1, Compte_Utilisateur.FullName, " ") > 0 Then Chaine_Test = Chaine_Test & Mid(Compte_Utilisateur.FullName, InStr(1, Compte_Utilisateur.FullName, " ") + 1, 1)
            Initiales_Utilisateur = UCase(Chaine_Test)
        Else
            Initiales_Utilisateur = "Utilisateur inconnu"
        End If
End Function

Sub Essai()
  Dim T, s$, i As Byte
  T = Split(UCase$(Application.UserName), " ")
  For i = 0 To UBound(T): s = s & Left$(T(i), 1): Next i
  MsgBox s
End Sub