VBA Excel paramétrage textbox

Bonjour,

je suis débutant en VBA, j'essaie de m'y retrouver sur diférents Forum mais je bloque sur un point.
J'ai créer une userform avec diférents combobox. Je souahaite selon le choix fais dans la combobox afficher un text dans une TextBox. En tapant le code ci dessous, celà fonctionne mais pour le texte s'inscrive dans la textbox, il faut que je clique dessu et que j'appui sur une touche du clavier sinon rien ne se passe... Autre poin où je bloque mes Combobox s'enchaine et je souhaiterai que si la valeur d'une combobox amont est changée que les texte des combobox aval n'affiche et pour que l'utilisateur soit obligé de refaire un choix.

merci d'avance,

Private Sub TypeDeRoute_change()

    If TPC.Value = Range("TPC").Cells(1, 1) Then 'Si pas TPC
        If Carrefour_Intersection = Range("TPC_Non").Cells(1, 1) Then 'si Intersection classique
        TypeDeRoute.Text = Range("TypeDeRouteNon").Cells(1, 1) 'R (routes Multifonctionnelles)
        End If
        If Carrefour_Intersection = Range("TPC_Non").Cells(2, 1) Then 'si voie d'insertion uniquement
        TypeDeRoute.Text = Range("TypeDeRouteNon").Cells(2, 1) 'T (Transit)
        End If
    End If

    If TPC.Value = Range("TPC").Cells(2, 1) Then 'Si TPC
        If Carrefour_Intersection = Range("TPC_Oui").Cells(1, 1) Then 'si Rond Point
        TypeDeRoute.Text = Range("TypeDeRouteOui").Cells(1, 1) 'R (routes Multifonctionnelles)
        End If
        If Carrefour_Intersection = Range("TPC_Oui").Cells(2, 1) Then 'si voie d'insertion uniquement
        TypeDeRoute.Text = Range("TypeDeRouteOui").Cells(2, 1) 'L(Liaison)
        End If
    End If
    
End Sub