Erreur d'execution 1004

Bonjour,
après clic sur le bouton ajouter de mon formulaire, les donnees inscritent au formulaire sont rangées dans mon tableau mais je reçoit à chaque fois le message: erreur d'execution '1004': erreur definie par l'application ou l'objet.
Voila mon code:

Private Sub ComboBox_region_Change()
Dim no_colonne As Integer, nb_lignes As Integer
'Numéro de la sélection (ListIndex commence à 0) :
nb_lignes = ComboBox_region.ListIndex + 1
'Nombre de lignes de la colonne de la region choisie :
no_colonne = Cells(nb_lignes, 1).End(xlDown).Row

End Sub
Private Sub ComboBox_ville_Change()
Dim no_colonne2 As Integer, nb_lignes2 As Long 'car la chaines est longue=17
'Numéro de la sélection (ListIndex commence à 0) :
nb_lignes2 = ComboBox_ville.ListIndex + 1
'Nombre de lignes de la colonne du ville choisi :
no_colonne2 = Cells(nb_lignes2, 2).End(xlDown).Row
End Sub
Private Sub CommandButton_Ajouter_Click()
'pour la verifictation des controles
If TextBox_prenom.Value = "" Or TextBox_nom.Value = "" Or ComboBox_region.Value = "" Or ComboBox_ville.Value = "" Or TextBox_enfant.Value = "" Then
MsgBox "Formulaire incomplet"
Else
'Instructions pour insérer le contact ici ...
End If
'Si le formulaire est complet, on insère les valeurs sur la feuille
Dim no_ligne As Integer, sexe As String

'Choix du sexe
For Each OptionButton_sexe In Frame_sexe.Controls
If OptionButton_sexe.Value Then
sexe = OptionButton_sexe.Caption
End If
Next
'no_ligne = N° de ligne de la dernière cellule non vide de la colonne +1
no_ligne = Range("A65536").End(xlUp).Row + 1

'Insertion des valeurs sur la feuille
Cells(no_ligne, 1) = TextBox_prenom.Value
Cells(no_ligne, 2) = TextBox_nom.Value
Cells(no_ligne, 3) = ComboBox_region.Value
Cells(no_ligne, 4) = ComboBox_ville.Value
Cells(no_ligne, 5) = sexe
Cells(no_ligne, 6) = TextBox_enfant.Value

'Après insertion, on remet les valeurs initiales
TextBox_prenom.Value = ""
TextBox_nom.Value = ""
ComboBox_region.ListIndex = -1
ComboBox_ville.ListIndex = -1
OptionButton_sexe.Value = True
TextBox_enfant.Value = ""

End Sub
Private Sub CommandButton_fermer_Click()
Unload Me
'elle ferme le formulaire
End Sub
Private Sub Frame_sexe_Click()
'le bouton "M" est choisi par defaut en choisissant ce bouton(value=True)
End Sub

Private Sub TextBox_enfant_Change()

End Sub

Private Sub UserForm_Initialize()
'"Sheets("Region") car c'est dans cette feuille que se trouve les données alimentant les
'"ComboBox"
For i = 2 To 5 ' => pour lister les 4 regions en commençant à la ligne 2
ComboBox_region.AddItem Sheets("Region").Cells(i, 1) 'Ajoute les valeurs des cellules A1 à A4 avec la boucle
Next
For i = 2 To 18 ' => pour lister les 17 villes en commençant à la ligne 2
ComboBox_ville.AddItem Sheets("Region").Cells(i, 2) 'Ajoute les valeurs des cellules B1 à B17 avec la boucle
Next
End Sub

la partie du code encadrée par les balises <souligne> est celle coloriée lors du debocage.