XL 2021 erreur Vba

Bonjour a tous,
j'ai un petit soucis au niveau de mon code vba
explication:
j'ai un userform avec txtentree et txtsortie, l'erreur est quand je met rien dans les deux TXT excel n'inscrit rien dans mon tableau, au contraire quand je rempli les deux TXT les donnees s'inscrit bien dans mon tableau j'aimerai que la saisie dans les txt sois l'un ou l'autre.

Exemple :
quand je saisi dans le le TxtSorti soit grise
quand je saisi dans le TxtSorti le TxtEntree soit grise

mon code
Private Sub CbtValider_Click()

'On test que les controles ont bien ete saisie
If Len(Me.TxtDate) = 0 Then
Me.LblMessage = "Veuillez entree une date JJ/MM/AAAA."
Me.TxtDate.SetFocus
ElseIf Len(Me.CboLieux) = 0 Then
Me.LblMessage = "Veuillez selectionner un lieux."
Me.CboLieux.SetFocus
ElseIf Len(Me.CboProjet) = 0 Then
Me.LblMessage = "Veuillez selectionner le projet."
Me.CboProjet.SetFocus
ElseIf Len(Me.TxtEntree) = 0 Then
Me.TxtEntree.SetFocus
ElseIf Len(Me.TxtSortie) = 0 Then
Me.TxtSortie.SetFocus
ElseIf Len(Me.CboDesignation) = 0 Then
Me.LblMessage = "Veuillez selectionner une designation."
Me.CboDesignation.SetFocus
ElseIf Len(Me.CboChefProjet) = 0 Then
Me.LblMessage = "Veuillez selectionner un chef de projet ."
Me.CboChefProjet.SetFocus
ElseIf Len(Me.CboChefChantier) = 0 Then
Me.LblMessage = "Veuillez selectionner un chef de chantier ."
Me.CboChefChantier.SetFocus

Else 'Si tous les champs sont complet on peut sauvegarder la source
'On cherche la prochaine ligne vide de la source
Feuil7.Activate
Feuil7.Range("A1048576").End(xlUp).Offset(1, 0).Select
' On effecte les donnees du formulaire dans la source
ActiveCell = ActiveCell.Offset(-1, 0) + 1
ActiveCell.Offset(0, 1) = CDate(Me.TxtDate)
ActiveCell.Offset(0, 2) = Me.CboLieux
ActiveCell.Offset(0, 3) = Me.CboProjet
ActiveCell.Offset(0, 4) = CCur(Me.TxtEntree)
ActiveCell.Offset(0, 5) = CCur(Me.TxtSortie)
ActiveCell.Offset(0, 6) = Me.CboDesignation
ActiveCell.Offset(0, 7) = Me.CboChefProjet
ActiveCell.Offset(0, 8) = Me.CboChefChantier


Unload Me
AvanceOuvrier.Show

'Activer la feuil TbTresorerie
Feuil1.Activate

End If
ThisWorkbook.Save
ThisWorkbook.RefreshAll
End Sub