XL 2010 masquer les Usf

Private Sub UserForm_Activate()
    
    With Me
        large = .Width: haut = .Height
        .Height = Application.Height + Me.Height - Me.InsideHeight
        .Width = Application.Width + 12
        .Left = -6
        .Top = -(Me.Height - Me.InsideHeight)
    End With
End Sub
-------------------
Private Sub UserForm_Resize()
    newlarge = Me.Width / large
    newhaut = Me.Height / haut
    For Each ctrl In Me.Controls
        With ctrl
            mem = Split(.Tag, ";")
            .Left = mem(0) * newlarge: .Width = mem(2) * newlarge
            .Top = mem(1) * newhaut: .Height = mem(3) * newhaut
            On Error Resume Next
            .Font.Size = mem(4) * newhaut
            Err.Clear
        End With
    Next
End Sub