Salut,
Dans le module ComboFiltreePat, sub ci-dessous modifiée
Function ListeFiltree_2D(combo As Object, ByRef tblB, Optional Col As Long = -1)
Dim a&, Lig, c, Tbl(), OK As Boolean, CoL1&, CoL2&, Cx&
If combo.Value = "" Then combo.List = Array(" "): combo.Clear: Exit Function '
If Col >...