Re : Truc tout con
Mon debogage :
Private Sub Triage1_Click()
Sheets("Nouveau Prg").Select
Range("A4:AO603").Select <----- ma marque que ca marche pas...
Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("Comparatif").Select
Range("G3").Select
End Sub