Bonjour
un bug qui traine!!
dans le code du userform recherche:
Sub listenom(feuille, col, ch)
l = Fdernièreligne(feuille, 1) A remplacer par ceci l = Fdernièreligne(feuille, col)
Liste1.liste.Clear
With ThisWorkbook.Sheets(feuille)
If l > 1 Then
Set zone = .Range(.Cells(2, col), .Cells(l, col))
For Each i In zone
Liste1.liste.AddItem i
Liste1.dest = .Name
Next
End If
End With
Liste1.Show
Me.Controls(ch).AddItem Liste1.liste
End Sub
merci de me tenir au courant