Baliser une base de donnée

Bonjour à tous,

J'ai créé mon formulaire en VBA. J'envoie mes informations dans ma feuille Excel (ma base de donnée) qui comprends 30 lignes et 15 colonnes. J'inscris à compter de la cellule B3. Voici le problème que j'éprouve. Lorsque j'inscris mes données, disons, dans la première ligne en B3,C3 etc.. une ligne vide s'additionne à la fin de ma base de donnée (ligne 31). J'aimerais que ma base de donnée soit en quelque sorte balisée. Vous avez une solution pour moi ?

Voici mon code VBA pour l'inscription de données dans ma base :

'Inscrire dans la source

Private Sub Boutoninscrire_Click()
If Bassins = "" Or ChoixRLS = "" Or NUM = "" Or Choixhrs = "" Or nomprenom = "" Or choixlangue = "" Or TextBox6 = "" Or datenaissance = "" Or typedemande = "" Or IntPivot = "" Or Intautres = "" Or profilintervention = "" Or profilisosmaf = "" Or oemcdate = "" Or raisoncode = "" Then

MsgBox ("Tous les champs de sont pas correctement remplis")

Else
If Sheets("Inscriptions").Range("B3") = "" Then
Sheets("Inscriptions").Range("B3") = Bassins
Else
Sheets("Inscriptions").ListObjects(1).ListRows.Add

Range("B3").End(xlDown).Offset(1, 0).Select

With Sheets("Inscriptions")
.Unprotect Password:="CES"

    ActiveCell = Bassins.Value
    ActiveCell.Offset(0, 1).Value = ChoixRLS
    ActiveCell.Offset(0, 2).Value = NUM
    ActiveCell.Offset(0, 3).Value = Format(Me.Choixhrs.Value, "hh:mm:ss")
    ActiveCell.Offset(0, 4).Value = nomprenom
    ActiveCell.Offset(0, 5).Value = choixlangue
    ActiveCell.Offset(0, 6).Value = TextBox6
    ActiveCell.Offset(0, 7).Value = datenaissance
    ActiveCell.Offset(0, 8).Value = typedemande
    ActiveCell.Offset(0, 9).Value = IntPivot
    ActiveCell.Offset(0, 10).Value = Intautres
    ActiveCell.Offset(0, 11).Value = profilintervention
    ActiveCell.Offset(0, 12).Value = profilisosmaf
    ActiveCell.Offset(0, 13).Value = Format(Me.oemcdate.Value, "YYYY/MM/DD")
    ActiveCell.Offset(0, 14).Value = raisoncode 

    MsgBox "Les informations ont été ajoutés à la base de donnée", vbOKOnly + vbInformation, "COMFIRMATION"

    .protect Password:="CES"

    End With
    End If
    End If
    End Sub

Quel argument me manque-t-il afin de pouvoir baliser ? J'ai essayé avec XlUp à compter de la fin de mon tableau (ligne 30) cela ne fonctionne pas.

Merci pour votre aide !

  Sheets("Inscriptions").Unprotect Password:="CES"

     'normal
     With Sheets("Inscriptions").ListObjects(1).ListRows.Add.Range.Range("A1")
          .Value = Bassins.Value
          .Offset(0, 1).Value = ChoixRLS
          .Offset(0, 2).Value = NUM
          .Offset(0, 3).Value = Format(Me.Choixhrs.Value, "hh:mm:ss")
          .Offset(0, 4).Value = nomprenom
          .Offset(0, 5).Value = choixlangue
          .Offset(0, 6).Value = TextBox6
          .Offset(0, 7).Value = datenaissance
          .Offset(0, 8).Value = typedemande
          .Offset(0, 9).Value = IntPivot
          .Offset(0, 10).Value = Intautres
          .Offset(0, 11).Value = profilintervention
          .Offset(0, 12).Value = profilisosmaf
          .Offset(0, 13).Value = Format(Me.oemcdate.Value, "YYYY/MM/DD")
          .Offset(0, 14).Value = raisoncode
     End With

     'concentré
     With Sheets("Inscriptions").ListObjects(1).ListRows.Add.Range.Range("A1")
          .Resize(, 15).Value = Array(Bassins.Value, ChoixRLS, NUM, Format(Me.Choixhrs.Value, "hh:mm:ss"), nomprenom, choixlangue, _
                                      TextBox6, datenaissance, typedemande, IntPivot, Intautres, profilintervention, profilisosmaf, Format(Me.oemcdate.Value, "YYYY/MM/DD"), raisoncode)
     End With

Je galère avec ce fichier ce n'est pas la joie

Bien merci beaucoup pour le code. Très clair.

Je vous souhaite une bonne soirée