Gmb bonjour, me revoilà !! j'ai un ptit Bug !
j'ai voulu remettre la liste des contacts à zero,un feuille vierge de contact et là erreur : quand tu cliques société
ListBox1.List = Application.Transpose(listeFiltrée)
D'ou cela peut il venir, j'ai essayé de modifier
For i = 3 To f.Range("A" & Rows.Count).End(xlUp).Row
If f.Range("A" & i) = ComboBox1 Then
ReDim Preserve listeFiltrée(1 To 6, 1 To k + 1)
For j = 2 To 6
listeFiltrée(j - 1, k) = f.Cells(i, j).Value
Next j
listeFiltrée(6, k) = i
k = k + 1
mais rien n'y fait !! un autre peit bug c'est quand tu cliques dans la combo list box1 et qu'il n'y a rien .
si tu peux encore m'aider ??
merci
Cobbea