XL 2016 UserForm titre : centrer le texte et le formater

Private Sub UserForm_Activate()
Me.Width = ActiveSheet.Shapes("caré").Width
Me.Height = ActiveSheet.Shapes("caré").Height
End Sub

Private Sub UserForm_Activate()
With Me
.Width = ActiveSheet.Shapes("caré").Width - ((.Width - Me.InsideWidth) * 2)
Me.Height = ActiveSheet.Shapes("caré").Height - ((.Width - Me.InsideWidth) * 2)
End With
End Sub

Private Sub UserForm_Activate()
    Dim Espaces As Byte
    Me.label1 = Worksheets("Feuil1").Range("B3")
    Do Until Me.label1.Width >= Me.Width - ((Me.Height - Me.InsideHeight) * 2)
        Me.label1 = " " & Me.label1 & " "
        Espaces = Espaces + 1
    Loop
    Me.Caption = Mid(Me.label1, 2, Len(Me.label1) - Espaces)
End Sub

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As POINTAPI) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Type POINTAPI: X As Long: Y As Long: End Type
Private Type RECT: Left As Long: Top As Long: Right As Long: Bottom As Long: End Type


Private Sub UserForm_Initialize()
Dim hdc&, TextSize As POINTAPI, Cx&, R As RECT
hdc = GetDC(FindWindow(vbNullString, Me.Caption)): GetWindowRect hwnd, R
GetTextExtentPoint32 hdc, Me.Caption, Len(Me.Caption), TextSize
Cx = (R.Right + R.Left + TextSize.X) / 2
Do While TextSize.X < Cx
Me.Caption = " " & Me.Caption
GetTextExtentPoint32 hdc, Me.Caption, Len(Me.Caption), TextSize
Loop
End Sub