XL 2013 droit d'accès dans excel userform vba

Sub voirbutton(Utilisateur As String)
    'PharmaForm.Show
Dim col, i As Byte
Dim lig%
Dim lesbuttons As Object
Dim j%
Dim Ctrl As Object
'Dim Cont As Control
    
    With Sheets("Setting")
        col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
        Set lesbuttons = UserForm2.Frame1.Controls
        lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row
        For i = 3 To col
            If UCase(.Cells(lig, i)) = "X" Then
              lesbuttons(i - 3).Enabled = True
            End If
        Next i
        Unload UserForm1
        UserForm2.Enabled = True
        UserForm2.Show
    End With
End Sub