Private Sub UserForm_Initialize()
    Me.LblError = "Complete all information"
    CbGuardR.List = List.ListObjects("Tagent").ListColumns(2).DataBodyRange.Value
    CbGuardR = "Select Guard"
End Sub

Private Sub Buttton_clear_Click()
    Me.Txt_Nom = ""
    Me.Txt_Prenom = ""
    Me.Txt_Matricule = ""
    Me.Txt_Nom.SetFocus
End Sub

Private Sub Button_addagent_Click() 'add guard
Dim lig As Integer

If Len(Me.Txt_Nom) = 0 Then
    Me.LblError = "Entrer un nom"
    Me.Txt_Nom.SetFocus
ElseIf Len(Me.Txt_Prenom) = 0 Then
    Me.LblError = "Entrer un prenom"
    Me.Txt_Prenom.SetFocus
ElseIf Len(Me.Txt_Matricule) = 0 Then
    Me.LblError = "Entrer un matricule"
    Me.Txt_Matricule.SetFocus
   
Else

    With List.ListObjects("Tagent")
        If .ListRows.Count = 0 Then
            .ListRows.Add: lig = 1
        Else: .ListRows.Add: lig = .ListRows.Count
        End If
        .DataBodyRange.Item(lig, 1) = WorksheetFunction.Max(.ListColumns(1).DataBodyRange.Value) + 1
        .DataBodyRange.Item(lig, 2) = Txt_Nom & Txt_Prenom
        .DataBodyRange.Item(lig, 3) = Txt_Nom
        .DataBodyRange.Item(lig, 4) = Txt_Prenom
        .DataBodyRange.Item(lig, 4) = Txt_Matricule
    End With
End If
End Sub

Private Sub Button_close_Click() 'close USF
    Unload Me
End Sub

Private Sub Button_close_d_Click() 'Delete guard button
    Call Button_close_Click
End Sub

Private Sub CbClearR_Click()
    CbGuardR.Value = ""
End Sub

Private Sub CbDELGuard_Click()
Dim Valid As Byte

Valid = MsgBox("Are you sure to delete this Guard " & CbGuardR.Value & " ?", vbCritical + vbYesNo + vbDefaultButton2, "Verification")
If Valid = 7 Then
    Call CbClearR_Click
    Exit Sub
Else
    Dim lo As Integer
    
    With ThisWorkbook.Sheets("List").ListObjects("Tagent")
        lo = .Range.Find(CbGuardR.Value, , xlValues, xlWhole).Row '- .HeaderRowRange.Row
        .ListRows(lo - .HeaderRowRange.Row).Range.Delete
    End With
    MsgBox "The guard " & CbGuardR.Value & "has been deleted"
    Call Button_close_Click
End If
End Sub