Il y a vraiment pas de problème Robert !!
D'autant que j'ai trouvé une solution à mon problème
La voici pour ci quelqu'un à le meme problème que moi car ca doit arriver :
(il fallait définir des variables XlSortOrder, pour permettre de faire une formule de trie générale)
Dim Vtrie1 As XlSortOrder
Dim Vtrie2 As XlSortOrder
Dim Vtrie3 As XlSortOrder
If CBoxTrie1.Text <> "" Then
Ptrie1 = Range(CBoxTrie1.Text)
If BCTrie1 = True Then
Vtrie1 = xlAscending
Else
Vtrie1 = xlDescending
End If
If CBoxTrie2.Text <> "" Then
Ptrie2 = Range(CBoxTrie2.Text)
If BCTrie2 = True Then
Vtrie2 = xlAscending
Else
Vtrie2 = xlDescending
End If
If CBoxTrie3.Text <> "" Then
Ptrie3 = Range(CBoxTrie3.Text )
If BCTrie3 = True Then
Vtrie3 = xlAscending
Else
Vtrie3 = xlDescending
End If
End If
End If
End If
Sheets("feuil1").Range("A2:Z150").Sort Ptrie1, Vtrie1, Ptrie2, , Vtrie2, Ptrie3, Vtrie3
Alors merci encore Encore
et mes meilleurs voeux 2005