Mise à jour combobox

Bonjour le forum,

J'ai un combobox qui est alimenté par une rowsource et qui lorsque l'on choisit un nom remplit des textbox ainsi :

Private Sub ComboBox1_Click()
Dim y As Integer
y = ComboBox1.ListIndex + 2
Ajclient.Titre.Value = Worksheets("Clients").Cells(y, 1)
Ajclient.Nom.Value = Worksheets("Clients").Cells(y, 2)
Ajclient.prenom.Value = Worksheets("Clients").Cells(y, 3)

Il rappatrie dans des textbox (Ajclient.prenom) les informations relatives au nom, prénom etc...

Par ailleurs j'ai un bouton qui permet soit de rajouter un nom avec toutes les données y afférents soit de modifier le nom et les données y relatives

Private Sub CommandButton3_Click()
Dim nclient As String
Dim y As Integer
y = ComboBox1.ListIndex + 2

If Ajclient.CheckBox2 = True Then
nclient = Worksheets("Clients").Range("C500").End(xlUp).Row + 1

'les données sont ajoutées (nouveau client)

Worksheets("Clients").Range("B" & nclient) = Ajclient.Nom.Value
Worksheets("Clients").Range("C" & nclient) = Ajclient.prenom.Value

' les données sont modifiées (changement des données client)

Else: Range("A" & y) = Ajclient.Titre.Value
Rem Range("B" & y) = Ajclient.nom.Value
Range("C" & y) = Ajclient.prenom.Value


Or tout fonctionne sauf lorsque je modifie le nom (qui se trouve sélectionné dans le combobox) dans le textbox la macro bloque ou me jette. Alors que pour tous les autres champs (prénom, titre etc...) tout fonctionne. Je pense que cela est du au fait que le nom soit dans le combobox et qu'il n'arrive pas à gérer la modification.

Pourriez vous me guider ?

ps: je ne met pas le fichier car il est très lourd 🙁