Afficher donnée dans listbox

Bonjour à tous je sollicite une aide j'aimerais afficher des lignes dans ma listbox suivant un critère et ca ne marche pas malgré le code vba en ligne que j'ai tenté d'appliquer Merci de m'aider ci_joint le fichier

Bonjour,

Et comment on l'utilise votre fichier ? Quel est ce critère ?

Il y'a les superlatifs < et > sur les boutons de commande du USF merci

Bonsoir,

déjà le code des boutons je le modifierai afin d'avoir des valeurs chiffrées correspondant à ces derniers plutôt que de cherche à trouver ce qui est écrit entre tel ou tel caractère :

Private Sub CommandButton1_Click()' >=50
    Call r_moyenne(50)
End Sub
Private Sub CommandButton2_Click() ' <50 donc égale à 49 et moins
    Call r_moyenne(49)
End Sub
Private Sub CommandButton3_Click() ' >60 donc 61 et plus
    Call r_moyenne(61)
End Sub

Ensuite un appel au code d'un clic de bouton n'est pas à faire à mon sens donc je met une apostrophe devant :

Public Sub r_moyenne(moy)
    Dim cel As Range, plg As Range
'   Call CommandButton1_Click
    Set plg = Cells(2, "O").Resize(ActiveSheet.Cells(Rows.Count, "O").End(xlUp).Row, 1)
    For Each cel In plg.Cells
        If cel.Value < moy * 1 And cel.Value <> "" Then Call affiche(cel.Row)
    Next cel
    TextBox3.Value = ListBox1.ListCount
End Sub

Ensuite pour ce que vous voulez faire, je n'ai pas compris...
la liste box se remplie bien avec les données compatibles avec les valeurs d'un ou l'autre TextBox. Mais après ?

@ bientôt

LouReeD