Bonsoir,
Je ne peut faire plus car tu dit que le tri doit êtres sur 4 colonnes
Est-ce que critère1 c'est pour colonne1 ,critère2 pour colonne 2, etc..
ou explique un peu plus.
voilà un début de fonction qui te fait un tri sur une colonne
et peut inscrire dans une autre feuille.

Public Compare(1 To 5) As String

Public Sub Recherche_trie()
Dim i As Integer, T$
Dim a As Long
Dim b As Integer
Dim Lig As Integer


'sélectionne la première feuille
Worksheets("feuil1").Select
'Ceçi simule les critères qui sont dans la liste box
Compare(1) = "critère1"
Compare(2) = "critère2"
Compare(3) = "critère3"
Compare(4) = "critère4"
Compare(5) = "critère5"

'connaitre la dernière ligne initialisée dans la feuille
a = Range("A65536").End(xlUp).Row
Lig = 1 '' la 1ère ligne où copier
'Saisie des contenus des cellules
For i = 1 To a
T$ = Cells(i, 1) '' 1 si c'est dans la colonne 1
For b = 1 To 5 '' vérifie si la cellule contient un critère
If T$ = Compare(b) Then
' a trouver une comparaison

'inscrire la valeur de la cellule (ou la ligne ?)
'dans la feuille 2
'a la ligne lig

' pour avoir la prochaine ligne pour écrire
Lig = Lig + 1

End If
Next b
Next i

End Sub
tient moi au courant et tu peut toujours demander des éclaircisements. Pour connaître la fonction d'un mot le sélectionner et taper F1.
Bon courrage, bonne prog
A+
louis