Bonsoir TomTom, le Forum
As-tu essayé ce genre de code ?
Sub Test()
With Sheets("Feuil2")
.Range("E1:G20").Sort _
Key1:=.Range("E1"), _
Key2:=.Range("F1"), _
Key3:=.Range("G1"), _
Header:=xlYes '<<<< Si il y a des entêtes de colonnes
End With
End Sub
Bonne Soirée
@+Thierry