Re-,
effectivement, remplace le A par B dans Range("A6;J25") :
Private Sub Worksheet_Activate()
Range("B6:J25").Sort Key1:=Range("G6"), Order1:=xlDescending, Key2:=Range("J6") _
, Order2:=xlDescending, Header:=xlGuess
End Sub
Et pour :
Sinon qu'est-ce que tu entends par "j'ai amélioré ton fichier" ?
J'avais travaillé sur ce fichier, en calculant tout d'abord les points, puis les matchs gagnés, perdus, nuls....
Or, l'inverse est plus rapide, ce que tu as fait.....
Bonne soirée