Salut Djguitchom et le Forum
Sur quelques colonne la base du Tri.
Qu'est ce qui déclenche le tri ?
Un début de solution
Sub Trier()
Range("D3").CurrentRegion.Sort _
Key1:=Range("A4"), Order1:=xlAscending, _
Key2:=Range("B4"), Order2:=xlAscending, _
Key3:=Range("C4"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
Mytå