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 :
Pièce jointe 610174
Pièce jointe 610175

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
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