Forcer mise à jour combobox vba

Bonjour le forum,

Voila mon problème. Lorsque je sélectionne dans ma combo1 cela affiche un statut en textbox2 (fonctionnaire ou cdi).
Et ce choix alimente les propositions de la combo4.

Mais comme pour l'option cdi il n'y a qu'un choix j'ai opté pour forcer le controle de la combobox4. Malheureusement cela me bloque la mise à zéro à chaque fois que je change en combo1 et donc en textbox2.

Pourriez svp, m'indiquer une option pour forcer cette mise à jour lorsque je modifie un nom dans la combo1.
Merci A vous

Private Sub ComboBox1_Change()
'Selectionne la même ligne que le nom
    Dim Lgn&
    Lgn = ComboBox1.ListIndex + 1
'Inscrit le statut en textbox
With Sheets("ftp")
    TextBox2.Value = .Cells(Lgn + 1, 4)
    TextBox3.Value = .Cells(Lgn + 1, 12)
    TextBox4.Value = .Cells(Lgn + 1, 13)
End With


'Mettre à jour la combo2 en sélectionnant un nom dans la combo1
'en fonction de ce qui apparait dans le TextBox2
    Select Case TextBox2
        Case "FONCTIONNAIRE"
            ComboBox4.Clear
            ComboBox4.AddItem "Journée"
            ComboBox4.AddItem "Journée férié"
            ComboBox4.AddItem "Nuit"
     
     End Select
        If TextBox2 = "CDI" Then
            ComboBox4.Clear
            ComboBox4 = "Journée"
     End If

End Sub