Re,
explique toi, car là je n'ai rien compris
Avec mon classeur, si tu cliques sur le bouton, la listbox t'affiche toutes les valeurs inférieur à 0
Après, si tu veux que l'affichage se fasse en direct, à chaque changement de chiffre en colonne F
remplace la macro par ce code et supprime le bouton
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim NbLigne As Integer
Dim ligne As Integer
LstNom.Clear
NbLigne = WorksheetFunction.CountA(Range("A:A"))
For ligne = 2 To NbLigne
If Cells(ligne, 6) < 0 Then
LstNom.AddItem Cells(ligne, 3).Value
End If
Next ligne
End Sub