Les valeurs ajoutées par le formulaire ne sont pas comptabilisées Excel...

Bonjour,

j'ai un formulaire qui comprend 2 textBox les valeurs ajoutées ds ma base ne sont pas comptabilisées ???

Option Explicit
Dim Ws As Worksheet

Private Sub BtnEffacer_Click()
CBoFctBord = ""
CBoImmat = ""
CBoIULMSolo = ""
CBONature = ""
CBoNomPrénom = ""
CBoPax = ""
CBoVol = ""
CBoFact = ""
TxtDuréeduvol = ""
TxtObs = ""
End Sub

Private Sub btnEnregistrer_Click()
Dim dureeVol As String
Dim dateVol As String
Dim bAllOK As Boolean
Dim tmpMessage As String
Dim tmpAR As Variant
Dim i As Long

bAllOK = True

' Contrôle durée
tmpMessage = "Durée de vol non valide ; Format requis = 'XX:YY'"
dureeVol = TxtDuréeduvol.Text
If Len(dureeVol) <> 5 Then
bAllOK = False
tmpMessage = tmpMessage & " --> Format non respecté"
Else
If InStr(1, dureeVol, ":", vbTextCompare) = 0 Then
bAllOK = False
tmpMessage = tmpMessage & " --> Absence du ':'"
Else
tmpAR = Split(dureeVol, ":")
If UBound(tmpAR) <> 1 Then
bAllOK = False
tmpMessage = tmpMessage & " --> Trop de ':'"
Else
For i = LBound(tmpAR) To UBound(tmpAR)
If IsNumeric(tmpAR(i)) = False Then
bAllOK = False
Exit For
End If
Next i

If bAllOK = True Then
bAllOK = False
tmpMessage = tmpMessage & " --> Valeurs hors bornes"
If CLng(tmpAR(0)) >= 0 _
And CLng(tmpAR(0)) <= 23 _
And CLng(tmpAR(1)) >= 0 _
And CLng(tmpAR(1)) <= 59 Then
bAllOK = True
End If
End If
End If
End If
End If

If bAllOK = False Then
MsgBox tmpMessage, vbOKOnly + vbInformation, "CONFIRMATION"
Else
Sheets("CarnetVol").Activate
Range("B3").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = TxtDate.Value
ActiveCell.Offset(0, 1).Value = CBoNomPrénom
ActiveCell.Offset(0, 3).Value = CBoImmat
ActiveCell.Offset(0, 7).Value = CBoFctBord
ActiveCell.Offset(0, 8).Value = CBONature
ActiveCell.Offset(0, 9).Value = CBoPax
ActiveCell.Offset(0, 10).Value = CBoVol
ActiveCell.Offset(0, 12).Value = TxtDuréeduvol
ActiveCell.Offset(0, 13).Value = CBoFact
ActiveCell.Offset(0, 17).Value = CBoIULMSolo
ActiveCell.Offset(0, 19).Value = TxtObs

MsgBox "Votre vol a bien été Enregistré", vbOKOnly + vbInformation, "ERREUR"
End If
End Sub

Private Sub BtnFermer_Click()
Unload Me
End Sub

Private Sub CBoFctBord_Change()
Call UserForm_Verif
End Sub

Private Sub CBoImmat_Change()
Call UserForm_Verif
End Sub

Private Sub CBoIULMSolo_Change()
Call UserForm_Verif
End Sub

Private Sub CBONature_Change()
Call UserForm_Verif
End Sub

Private Sub CBoNomPrénom_Change()
Call UserForm_Verif
End Sub

Private Sub CBoPax_Change()
Call UserForm_Verif
End Sub

Private Sub CBoVol_Change()
Call UserForm_Verif
End Sub

Private Sub CBoFact_Change()
Call UserForm_Verif
End Sub

Private Sub CommandButton1_Click()

End Sub

Private Sub TxtDate_Change()

End Sub

Private Sub TxtDuréeduvol_Change()
Call UserForm_Verif
End Sub

Private Sub TxtObs_Change()
Call UserForm_Verif
End Sub

Private Sub UserForm_Verif()
If CBoFctBord.Text <> "" _
And CBoImmat.Text <> "" _
And CBoIULMSolo.Text <> "" _
And CBONature.Text <> "" _
And CBoNomPrénom.Text <> "" _
And CBoPax.Text <> "" _
And CBoVol.Text <> "" _
And CBoFact.Text <> "" _
And TxtDuréeduvol.Text <> "" _
And TxtObs.Text <> "" Then
btnEnregistrer.Enabled = True
End If
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
TxtDate.Text = ActiveWorkbook.Sheets("Accueil").Range("Aujourdhui").Value
Call AdapterTailleFormAEcran
End Sub