XL 2016 UserForm titre : centrer le texte et le formater

'bonus couleur différente pour chaque jours fériés'
Function EstFérié(Dat As Date)
    Dim paques As Date
    EstFérié = vbWhite
    If Weekday(Dat, vbMonday) = 6 Or Weekday(Dat, vbMonday) = 7 Then EstFérié = vbGreen
    paques = CDate(((Round(DateSerial(Year(Dat), 4, (234 - 11 * (Year(Dat) Mod 19)) Mod 30) / 7, 0) * 7) - 6))
    
    Select Case Dat
    Case CDate("25/12/" & Year(Dat)): EstFérié = vbRed    'noel
    Case CDate("01/01/" & Year(Dat)): EstFérié = vbMagenta    ' jour de l'an
    Case paques: EstFérié = vbYellow    'paques
    Case paques + 39: EstFérié = vbYellow    'l'Ascension
    Case paques + 50: EstFérié = vbYellow    'Lundi de Pentecôte
    Case CDate("01/05/" & Year(Dat)): EstFérié = RGB(200, 200, 200)    'Fête du travail
    Case CDate("08/05/" & Year(Dat)): EstFérié = RGB(200, 200, 200)    'Victoire des alliés
    Case CDate("14/07/" & Year(Dat)): EstFérié = RGB(255, 200, 0)    'Fête nationale
    Case "15/08/" & Year(Dat): EstFérié = RGB(250, 100, 200)    'assomption
    Case "01/11/" & Year(Dat): EstFérié = RGB(130, 0, 150)    'La Toussaint
    Case "11/11/" & Year(Dat): EstFérié = RGB(200, 0, 150)    'Armistice 1945
    End Select


End Function

Sub test()
texte = "ptopx1 " & ptopx1 & vbCrLf & "ptopx2 " & ptopx2 & vbCrLf & "ptopx3 " & ptopx3
MsgBox texte
End Sub
'
Function ptopx1() As Double
ptopx1 = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI") / 72
End Function
'
Function ptopx2()
With ActiveWindow.ActivePane: ptopx2 = (.PointsToScreenPixelsX(Cells.Width) - .PointsToScreenPixelsX(0)) / Cells.Width: End With
End Function
'
Function ptopx3()
With ActiveWindow.ActivePane: ptopx3 = (.PointsToScreenPixelsX([A1].Width) - .PointsToScreenPixelsX(0)) / [A1].Width: End With
End Function