Private Sub CommandButton85_Click()
With Sheets("VBA")
If ComboBox1.Value = "" Then
Exit Sub
End If
lig = .Columns("A").Find(What:=ComboBox1, LookIn:=xlValues).Row
Set table = Sheets("VBA").Range("A" & lig & ":S" & lig)
Sheets("VBA").Range("I" & lig).Interior.Color = RGB(0, 255, 255)
For Each d In table
If d = "" Then d.Interior.Color = RGB(0, 255, 255)
Next
If Sheets("VBA").Cells(lig, 4).Interior.Color = RGB(0, 255, 255) And Sheets("VBA").Range("F" & lig & ":S" & lig).Interior.Color = RGB(0, 255, 255) Then
Sheets("VBA").Range("A" & lig & ":T" & lig).Interior.Color = RGB(0, 255, 255)
End If
With ListBox1
For n = 0 To .ListCount - 1
Cells(L, Val(.List(n, 1))).Interior.Color = IIf(.Selected(n) = True, RGB(0, 255, 255), xlNone)
Next
End With
With ListBox2
For n = 0 To .ListCount - 1
Cells(L, Val(.List(n, 1))).Interior.Color = IIf(.Selected(n) = True, RGB(0, 255, 255), xlNone)
Next
End With
Me.Hide
End With
End Sub