Formulaire VBA bloqué à la saisie

Bonjour
J'ai crée ce formulaire en VBA et d'un coup il est maintenant fiché, impossible de saisir dans les champs. C'est comme si une autre boite de dialogue était ouverte et empêchait la saisie dans le formulaire. Quelqu'un peut m'aider merci !
Voici mes captures :



----------Code en dessous -------------

Private Sub Button4Fermer_Click()
Unload FormRegister
End Sub

Private Sub ButtonAjouter_Click()
'Double click sur le bouton ajouter

If ComboBox2.Value = " " Then
MsgBox "Veuillez remplir le champ nom et prénom"
Else
Dim ligne As Integer

If MsgBox("Confirmez-vous l'ajout des données ?", vbYesNo, "confirmation") = vbYes Then

Worksheets("Feuil2").Select

'n° de la ligne vide de la colonne A
ligne = Sheets("Feuil2").Range("A456541").End(xlUp).Row + 1

Cells(ligne, 1) = omboBox_civilite.Value
Cells(ligne, 2) = ComboBox_nomprenom.Value
Cells(ligne, 3) = Txt_adresse.Value
Cells(ligne, 4) = Txt_codepostal.Value
Cells(ligne, 5) = Txt_ville.Value
Cells(ligne, 6) = Txt_telephone.Value
Cells(ligne, 7) = Txt_email.Value

Unload FormRegister

FormRegister.Show
Else
End If
End If
End Sub


Private Sub UserForm_Initialize()
ComboBox_civilite.AddItem "Madame"
ComboBox_civilite.AddItem "Mademoiselle"
ComboBox_civilite.AddItem "Monsieur"
FormRegister.Height = 500
FormRegister.Width = 500

End Sub