RESOLU -- TRI sur colonnes...

Sub CLASSE_FOURNIS()
 Dim strDateRecherche As String
 Dim idx As Variant
 strDateRecherche = "1-" & ActiveSheet.Name
 If IsDate(strDateRecherche) Then
    With Sheets("Classement Four")
        idx = Application.Match(CDate(strDateRecherche) * 1, .Rows(1), 0)
        If Not IsError(idx) Then
            .Range(.Cells(2, idx), .Cells(Rows.Count, idx).End(xlUp)).Resize(, 2).Sort _
                key1:=.Cells(2, idx), Order1:=xlDescending, _
                key2:=.Cells(2, idx + 1), Order2:=xlAscending, _
                Header:=xlYes
                
        End If
    End With
 End If
End Sub