Ca fonctionne tres bien. Pour ma compréhension personnel, pourquoi mon code me fait perdre une ligne. (J'ai mis les cellules de la colonne 1 en standard). Par ailleurs si je veux un 2ieme critere de classement, dois-je utiliser les filtres élaborés? Exemple si je veux classer en fonction de F et ensuite reclasser le résultat en fonction en mettant la meilleure note en premier.
Private Sub CommandButton1_Click() 'BOUTON PIECES
If Pieces = 0 Then
Pieces = 1
Range("A1:G1057").Sort Key1:=Range("F2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Else
Pieces = 0
Range("A1:G1057").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End Sub