combobox et listbox

comment peut on faire pour qu'une comobobox ne puisse avoir dans sa liste deroulante qui contient le nom de toutes les feuilles de n'avoir que le nom des feuilles ou il y a des articles

Cliquez pour agrandir...

bonjour a vous tous comment puis je faire pour que la combo n'affiche que la feuille plomberie et électricité dans sa liste

Cliquez pour agrandir...

Sub IniCbo2()
Dim MonDico As Object, C As Range, firstAddress As String, x As String, DerL As Long

Set MonDico = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False

With Ws
DerL = .Range("A65536").End(xlUp).Row

Set C = .Range("C2:C" & DerL).Find("*", LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then
firstAddress = C.Address
Do
x = Mid(C, 1, InStr(C, " ") - 1)
If Not MonDico.Exists(x) Then MonDico.Add x, x
Set C = .Range("C2:C" & DerL).FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
End With

UserForm2.ComboBox2.List = MonDico.items
Set MonDico = Nothing
Application.ScreenUpdating = True

End Sub

Cliquez pour agrandir...