Bug checkbox en fonction de text box

Bonjour,

J'ai userform qui a des textbox et j'ai quand je clic sur les nom des salariés dans une listbox, je peux définir par petit groupe (de 3personnes) si le groupe de salariés en question est concerné ou pas par les compétences ou non.

Jusque là tout va bien.

Sauf que si je ne le sélectionne que 2 salariés, ça ne fonctionne plus, il me détecte un bug et sur ligne en jaune la ligne suivante :

      Sheets("Base").Range("DH" & CL3.Row) = "NC"

Voici le code entier de la chekbox : (qui fonctionne quand j'ai sélectionné 3 salariés et qui ne fonctionne pas avec moins.)

Private Sub ChkB01_Click()
    'CONCERNÉ/NON-CONCERNÉ 01
Dim CL1 As Range
Dim CL2 As Range
Dim CL3 As Range
Dim Dlig As Integer

Sheets("Base").Select
Dlig = Cells(Rows.Count, "A").End(xlUp).Row

Set CL1 = Range("A2:A" & Dlig).Find(What:=Me.TBoxM1.Value, LookIn:=xlValues, LookAt:=xlWhole)
Set CL2 = Range("A2:A" & Dlig).Find(What:=Me.TBoxM2.Value, LookIn:=xlValues, LookAt:=xlWhole)
Set CL3 = Range("A2:A" & Dlig).Find(What:=Me.TBoxM3.Value, LookIn:=xlValues, LookAt:=xlWhole)

   If ChkB01.Value = True Then
      Sheets("Base").Range("DH" & CL1.Row) = "NC"
      Sheets("Base").Range("DH" & CL2.Row) = "NC"
      Sheets("Base").Range("DH" & CL3.Row) = "NC"

   Else
      Sheets("Base").Range("DH" & CL1.Row).ClearContents
      Sheets("Base").Range("DH" & CL2.Row).ClearContents
      Sheets("Base").Range("DH" & CL3.Row).ClearContents

   End If
End Sub

Merci par avance =)

Re,

Voici mon fichier complet. =)

Merci par avance =)

C'est bon, j'ai trouvé tout seul

J'ai ajouté ça :

    If TBoxM1 = "" Then
    TBoxM1 = Sheets("recup").Range("A11")
    Else
    TBoxM1 = Sheets("recup").Range("A1")
    End If

    If TBoxM2 = "" Then
    TBoxM2 = Sheets("recup").Range("A11")
    Else
    TBoxM2 = Sheets("recup").Range("A2")
    End If

    If TBoxM3 = "" Then
    TBoxM3 = Sheets("recup").Range("A11")
    Else
    TBoxM3 = Sheets("recup").Range("A3")
    End If

    If TBoxM4 = "" Then
    TBoxM4 = Sheets("recup").Range("A11")
    Else
    TBoxM4 = Sheets("recup").Range("A4")
    End If