Tabulation inactive après effacement des données

Bonjour à tous,

Dans un formulaire de saisies, j'ai plusieurs TxtBox que j'efface après une saisie afin de faire une nouvelle saisie. Le problème que je rencontre est que après l'effacement, la tabulation devient inactive.
D'où peut provenir ce problème et avez-vous une solution à me proposer ?
Merci par avance

Voici le code d'effacement :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Private Sub CmbEf_Click()
        UFengt.CmbListeCred.SetFocus
Dim vNUM As Long
    Dim Vcellule As Object
    With UFengt
        If Sheets("Engagements").Range("A6").Value = "" Then
            .TnumInc.Value = 1
        Else
            vNUM = Sheets("Engagements").Range("A5").End(xlDown).Value + 1
            .TnumInc.Value = vNUM
            .TxtDate = Date
        End If
        .CmbListeCred = ""
        .CmbListeTiers = ""
        .CmbListeBat = ""
        .CmbMarche = ""
        .CmbNom = ""
        .LstImpu1.Clear
        .LstImpu2.Clear
        .LstImpu3.Clear
        .LstLigne.Clear
        .LstTiers.Clear
        .TxtNumDev = ""
        .TxtDevis = ""
        .TxtObjet = ""
        .TxtNum = ""
        .TxtMontant = "0.00"
        .TxtNome = ""
        .CmbListeCred.SetFocus
 
    End With
End Sub