Private Sub Combo2_Change()
If Combo1.ListIndex = -1 Or Combo2.ListIndex = -1 Then TextBox1 = "": Exit Sub
Dim x$
x = IIf(InStr("/" & TextBox1 & "/", "/" & Combo2 & "/") = 0, Combo2, "")
MsgBox TextBox1 & IIf(x = "", "", "/") & x, , "Mise à jour Catégories"
End Sub