Classement vertical.

=GRANDE.VALEUR($G$2:$K$2;LIGNES($1:1))

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Variant
with feuil1
    a = .Range("F2:K3")
   .Range("C1:D6") = WorksheetFunction.Transpose(a)
   .Range("C1:C6").Sort Key1:=.Range("C1"), Order1:=xlDescending, Header:=xlYes
   .Range("D1:D6").Sort Key1:=.Range("D1"), Order1:=xlDescending, Header:=xlYes
end with
End Sub

=INDEX($G$1:$K$1;EQUIV(PETITE.VALEUR($G$2:$K$2;LIGNE()-1);$G$2:$K$2;0))

=INDEX($G$1:$K$1;EQUIV(PETITE.VALEUR($G$3:$K$3;LIGNE()-1);$G$3:$K$3;0))