Voilà, en écrivant presque moitié moins!
Private Sub UserForm_Activate()
'
UserForm1.Caption = " Nom de L'Acteur..."
'
End Sub
Private Sub ComboBox1_Change()
'
TextBox1.Text = ComboBox1.Text
UserForm1.Caption = " Nom de L'Acteur..." & " " & TextBox1.Text
'
End Sub
Simple, toujours simple...
A+