Faire un classement horizontal

Bonjour,

comme cela si ta première formule est colonne A sinon il faut adapter

=GRANDE.VALEUR($A$3:$E$3;COLONNE())

Bonjour
pour avoir les noms
en A8 et recopier à droite

=INDEX($A$1:$E$1;1;EQUIV(GRANDE.VALEUR($A$3:$E$3;COLONNE());$A$3:$E$3;0))

Re,

ah oui je n'avais pas vu pour les Noms, je reviens avec la formule

Re,

voila, en A8 colle cette formule

=INDEX($A$1:$E$1;EQUIV(A10;$A$3:$E$3;0))

en A10
la formule précédente =GRANDE.VALEUR($A$3:$E$3;COLONNE())

et incrémente les deux formules vers la droite

Bonjour Mike-31
Merci pour ton intervention
Ta formule ne fonctionne que sur la ligne 3 le classement est bon
mais il faut que ce qu'il y a dans ligne 1 et 2 suive cette ligne 3
Cordialement

J'ai fait une macro mais j'ai un bug sur .Apply parce que dans ma plage il peut y avoir des cellules vides au moment ou j'active mon bouton (tri)
Comment remédier à ce problème
Crdlt

Sub tri()

' tri Macro

Range("C5:P7").Select
Range("P1").Activate
ActiveWorkbook.Worksheets("ELECTIONS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ELECTIONS").Sort.SortFields.Add Key:=Range("C5:P7") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("ELECTIONS").Sort
.SetRange Range("C5:P7")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub

J'ai trouvé mon erreur dans le code
ActiveWorkbook.Worksheets("ELECTIONS").Sort.SortFields.Add Key:=Range("C5:P7") _ il faut mettre C7:P7

Merci à tous les 2
j'ai résolu mon problème de code VBA post 3 pour effectuer mon tri sur le fichier original
Cordialement