Passer d'une case à l'autre

Bonjour et bonne année à tous ! Meilleurs voeux !

J'ai crée un userform avec plusieurs cases contenant un nombre limité de caractères comme suit :



Sauf que quand je veux passer d'une case à l'autre, un pup up s'affiche et je dois cliquer sur ok pour passer à la case à côté comme suit :



Or moi j'aimerais passer directement à la case d'après une fois les 4 chiffres remplis et valider à la fin du remplissage de toutes les cases.

Ci-joint le code mis pour mon boutton de validation, je pense que le problème vient de là :

Private Sub CommandButton1_Click()
If Len(Me.Code1) <> Me.Code1.MaxLength Or Len(Me.Code2) <> Me.Code2.MaxLength Or Len(Me.Code3) <> Me.Code3.MaxLength Or Len(Me.Code4) <> Me.Code4.MaxLength Then MsgBox "Nomenclature incorrecte": Exit Sub

Merci par avance pour vos retours !