Bonjour
Une solution pour le ComboBox13
Effaces la propriété RowSource
Modifies ta macro
Private Sub UserForm_Initialize()
Set f = Sheets("Para")
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range(f.[A2], f.[A65000].End(xlUp))
mondico(c.Value) = c.Value
Next c
Me.ComboBox11.List = mondico.items
mondico.RemoveAll
For Each c In Range(f.[H2], f.[H65000].End(xlUp))
If c <> "" Then
mondico(c.Value) = c.Value
End If
Next c
Me.combobox13.List = mondico.items
End Sub
Utilises la même méthode ( If c <> "" Then .... End If) pour les autres ComboBox