Syncronisation d'un formulaire d'ajout

Bonjour à tous et à toutes, j'ai un problème: j'ai crée en execel 2013 un userforme que j'ai nommé inscription_des élèves; j'ai écris un code vba qui est sencé ajouter les données remplis dans le formulaire dans la table d'inscription des élèves; j'ai rédigé le code suivant que voici

If cbx_sexe.Value = "" And Cbx_type.Value = "" And cbx_classe.Value = "" Then
MsgBox "veuillez renseigner les  champs 'Sexe/Type/Classe' "
Else
Dim ligne As Integer
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo) = vbYesThen
Worksheets("Gestion Mensuel").Select
DL = Sheets("Gestion Mensuel").Range("A30000").End(xlUp).Row
Sheets("Gestion Mensuel").ListObjects(1).ListRows.Add
Sheets("Gestion Mensuel").Range("A" & DL) = Me.Enregistrement.Caption
Sheets("Gestion Mensuel").Range("B" & DL) = Me.Txt_prenom
Sheets("Gestion Mensuel").Range("C" & DL) = Me.Txt_nom
Sheets("Gestion Mensuel").Range("D" & DL) = Me.cbx_sexe
Sheets("Gestion Mensuel").Range("F" & DL) = Me.Cbx_type
Sheets("Gestion Mensuel").Range("G" & DL) = Me.cbx_classe
Sheets("Gestion Mensuel").Range("H" & DL) = Me.Txt_versementir
Sheets("Gestion Mensuel").Range("I" & DL) = Me.Txt_versementM
Sheets("Gestion Mensuel").Range("J" & DL) = Me.Txt_dateir
Sheets("Gestion Mensuel").Range("K" & DL) = Me.Txt_dateVM
Sheets("Gestion Mensuel").Range("L" & DL) = Me.Txt_contact
Sheets("Gestion Mensuel").Range("O" & DL) = Me.Txt_baremM
Sheets("Gestion Mensuel").Range("P" & DL) = Me.Txtbaremir

Sheets("Config").Range("C5") = Sheets("Config").Range("C5") + 1

ThisWorkbook.Save

et lorsque je clique sur le bouton ajouter, je reçoit le message du genre l'indice n'appartient pas à la selection. puis-je avoir votre aide s'il vous plait