XL 2016 Modification de droits d'accès par UF

Private Sub ComboUtil_Change()
If Me.ComboUtil.Value = "" Or Me.TextPrenom.Value = "" Or Me.TextMdP.Value = "" Then Exit Sub

With ThisWorkbook.Sheets("Accès")
    Dim I As Integer: I = NomPnom(ComboUtil.Value, TextPrenom.Value, TextMdP.Value, .Range("A:A"))
    If I = 0 Then MsgBox "Pas trouvé": Exit Sub
    With .Cells(I, "A")
        Me.TextPrenom.Value = .Cells.Offset(, 1)
        Me.TextMdP = .Cells.Offset(, 2)
        Me.CheckBoutAgent = .Cells.Offset(, 3) = "X" 'True/False
        Me.CheckBouEntSort = .Cells.Offset(, 4) = "X"
        Me.CheckBoutHor = .Cells.Offset(, 5) = "X"
        Me.CheckBoutEtiq = .Cells.Offset(, 6) = "X"
        Me.CheckFeuilCalcul = .Cells.Offset(, 7) = "X"
        Me.CheckFeuilData = .Cells.Offset(, 8) = "X"
        Me.CheckBoutReserv = .Cells.Offset(, 9) = "X"
        Me.CheckBoutPlan = .Cells.Offset(, 10) = "X"
        Me.CheckFeuildroits = .Cells.Offset(, 11) = "X"
    End With
End With
End Sub

Private Sub TextNOM_Change()
TextNOM.Value = UCase(TextNOM.Value)
End Sub

Private Sub TextPrenom_Change()
TextPrenom.Value = StrConv(TextPrenom, vbProperCase)
If ComboUtil.Visible And TextPrenom.Value <> "" Then ComboUtil_Change
End Sub
Private Sub TextMdP_Change()
If ComboUtil.Visible And TextMdP.Value <> "" Then ComboUtil_Change
End Sub