TextBox & Mise en forme: à nouveau

Private Sub ComboBox2_Change()

'======================='
'Renseignement TextBox '
'======================='
 For n = 2 To Range("C65536").End(xlUp).Row
    If CStr(Range("C" & n)) = ComboBox1 And CStr(Range("D" & n)) = ComboBox2 Then
        With TextBox1
            .Value = Range("E" & n).Value
            .BackColor = Range("E" & n).Interior.Color
            .ForeColor = Range("E" & n).Font.Color
            .Font.Bold = Range("E" & n).Font.Bold
        End With
    End If
 Next n

'============================'
'Concaténation ComboBox2 & 1 '
'============================'
 If ComboBox2 <> "" And ComboBox1 <> "" Then TextBox1 = ComboBox2.Value & " " & ComboBox1.Value
 
End Sub