Je crée une base de données pour gérer les résultats médicaux

listbox2.additem(combobox1.text)

'****************************************
' Procédure permettant de
' Fermer un formulaire
'****************************************

Private Sub BtnFermer_Click()

Unload Me

End Sub

'****************************************
' Procédure permettant d'accéder
' au résultat des données
'****************************************
Private Sub BtnRésultat_Click()

Sheets("Résultat").Activate

End Sub

'****************************************
' Procédure permettant de réinitialiser
' les champs du formulaire
'****************************************
Private Sub BtnRéinitialiser_Click()

ListContenuTest = ""
RefEditResultat = ""
ComboBox_Test = ""
TextAdresse = ""
TextAge = ""
TextChoix = ""
TextCommentaire = ""
TextDate = ""
TextHeure = ""
TextNom = ""
TextNumCliniqueP = ""
TextNumOrdreP = ""
TextPrénom = ""
TextTéléphone = ""

End Sub

'****************************************
' Procedure permettant d'activer
' le bouton d'ajout d'enregistrement
'****************************************
Private Sub TextNom_Change()

If TextNom <> "" Then

BtnAjout.Enabled = True 'Activer le bouton
Else
BtnAjout.Enabled = False 'Désactiver le bout

End If

End Sub

'*********************************************************
' Procedure permettant d'ajouter un vouvel enregistrement
' dans la base de données
'*********************************************************

Private Sub BtnAjout_Click()

Sheets("Source").Activate
Range("A1").Select
Selection.End(xlDown).Select 'On se positionne sur la dernière ligne non vide
Selection.Offset(1, 0).Select 'On se décale d'une ligne vers bas
ActiveCell = TextNom.Value
ActiveCell.Offset(0, 1).Value = TextPrénom
ActiveCell.Offset(0, 2).Value = TextNumOrdreP
ActiveCell.Offset(0, 3).Value = TextNumCliniqueP
ActiveCell.Offset(0, 4).Value = TextTéléphone
ActiveCell.Offset(0, 5).Value = TextDate
ActiveCell.Offset(0, 6).Value = TextHeure
ActiveCell.Offset(0, 7).Value = TextAge
ActiveCell.Offset(0, 8).Value = TextAdresse
ActiveCell.Offset(0, 9).Value = TextCommentaire

MsgBox "Ajouter avec succès", vbOKOnly + vbInformation, "CONFIRMATION"

End Sub

'***************************************************
' Procédure permettant d'ajouter des nouveaux enregistrements
' dans les champs des listBox
'***************************************************

Private Sub BtnValResultat_Click()

TextBox1.Text = Val(ComboBox1.Text) + Val(TeBox.Text) + Val(ComboBox2.Text) + Val(ComboBox3.Text)
ListBox2.Items.Add (ComboBox1.Text) ' Affiche les test dans ListBox2
ListBox3.Items.Add (TeBox1.Text) ' Affiche le résultat dans TeBox1
ListBox4.Items.And (ComboBox2.Text) ' Affiche l'unité dans ListBox4
ListBox5.Items.And (ComboBox3.Text) ' Affiche l'intervalle dans ListBox5
End Sub

Private Sub UserForm_Click()

End Sub