XL 2010 Userform Plein Ecran VBA7

Public Sub ShowFullScreenUserForm(Usf As Object)  ''ok'utilisé
#If VBA7 Then
   Dim hWnd As LongPtr
#Else
   Dim hWnd As Long
#End If

Option Explicit

#If VBA7 Then
    #If Win64 Then
        Public Declare PtrSafe Function SetWindowLongPtrA Lib "user32" (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
        Public Declare PtrSafe Function GetWindowLongPtrA Lib "user32" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
        Public Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As Long
    #Else
        Public Declare PtrSafe Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
        Public Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
        Public Declare PtrSafe Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
        Public Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
    #End If
#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
    Public Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
#End If

Public Sub SameSizeApplication(Usf As Object)
    Dim ctl As Control, ratioW As Double, ratioH As Double, tbCw, i As Long

    With Application
        ratioW = .UsableWidth / Usf.Width
        ratioH = .Height / Usf.Height
    End With

    Usf.Move 0, 0, Usf.Width * ratioW, Usf.Height * ratioH

    For Each ctl In Usf.Controls
        ctl.Move ctl.Left * ratioW, ctl.Top * ratioH, ctl.Width * ratioW, ctl.Height * ratioH
        On Error Resume Next
        ctl.Font.Size = Round(ctl.Font.Size * Application.Min(ratioH, ratioW))
        On Error GoTo 0

        If TypeName(ctl) = "ListBox" Then
            If ctl.ColumnWidths <> "" Then
                tbCw = Split(Replace(ctl.ColumnWidths, " pt", ""), ";")
                For i = LBound(tbCw) To UBound(tbCw)
                    tbCw(i) = Val(tbCw(i)) * ratioW
                Next
                ctl.ColumnWidths = Join(tbCw, ";")
            End If
        End If
    Next
End Sub

Public Sub ShowFullScreenUserForm(Usf As Object)
    Dim hWnd As Variant

    SameSizeApplication Usf
    DoEvents ' Assure que le UserForm est bien affiché

    hWnd = FindWindowA(vbNullString, Usf.Caption)
    If hWnd = 0 Then Exit Sub ' Sécurité si la fenêtre n'est pas trouvée

    #If VBA7 Then
        #If Win64 Then
            SetWindowLongPtrA hWnd, -16, &H94080080
        #Else
            SetWindowLongA hWnd, -16, &H94080080
        #End If
    #Else
        SetWindowLongA hWnd, -16, &H94080080
    #End If
    ShowWindow hWnd, 3 ' Maximiser la fenêtre
End Sub