XL 2016 VBA - Redimensionner un UserForm après le retrait de la barre du menu système (Caption)

#If Win64 Then
    Public Declare PtrSafe Function SetWindowLongA Lib "user32" Alias "SetWindowLongptrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    Public Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
    Public Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Public Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If


Sub NoTitleBar(form)
    #If Win64 Then
        Dim hwnd As LongPtr
    #Else
        Dim hwnd As Long
    #End If
    Dim W#, H#, EcX#
    With form
        EcX = .Width - .InsideWidth
        W = .InsideWidth
        H = .InsideHeight
        hwnd = FindWindowA(vbNullString, form.Caption)
        SetWindowLongA hwnd, -16, &H94080080 'on retire la barre de titre
        .Move .Left, .Top, W, H + EcX
    End With
End Sub

Sub RetirerCaption() 
    Dim CaptionInsideWidth As Double
    Dim CaptionInsideHeight As Double

    With UserForm1
        'Récupération des Inside du UserForm complet
        CaptionInsideWidth = .InsideWidth
        CaptionInsideHeight = .InsideHeight
 
        Call RemoveBordersAndSystemBar(UserForm1)
 
        'Il faut modifier une des dimensions du UserForm pour provoquer le recalcul des Inside (pourquoi ???)
        .Width = .Width + 1
        .Width = .Width - 1
 
        'Retirer les différences des Inside avec le UserForm complet car les Inside ont inclus les marges du UserForm complet
        .Width = .Width - (.InsideWidth - CaptionInsideWidth)
        .Height = .Height - (.InsideHeight - CaptionInsideHeight)
    End With
End Sub

Private Sub RemoveBordersAndSystemBar(UserForm As Object)
    Dim UserFormHandle As Variant
    Dim iStyle As Variant
 
    UserFormHandle = GetUserFormHandleByCaption(UserForm)
    iStyle = GetWindowLongPtr(UserFormHandle, GWL_STYLE)
    SetWindowLongPtr UserFormHandle, GWL_STYLE, iStyle And Not WS_CAPTION
End Sub

Function GetUserFormHandleByCaption(UserForm As Object) As Variant
    Dim UserFormHandle As Variant
    Dim ClassName As String
 
    ClassName = "Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame"
    UserFormHandle = FindWindow(ClassName, UserForm.Caption)
 
    'UserForm Parent is the Application ?
    If UserFormHandle = 0 Then
        UserFormHandle = FindWindowEx(Application.hwnd, 0, ClassName, UserForm.Caption)
    End If
 
    GetUserFormHandleByCaption = UserFormHandle
End Function

Private Declare PtrSafe Function SetWindowLongA Lib "user32" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr