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