Tri des onglets par Date dans cellule

Private Sub Workbook_Open()
    nbSheets = ThisWorkbook.Sheets.Count

    ReDim dates(nbSheets - 2, 1) As Variant
    sh = 0
    For Each ws In Worksheets
        If ws.Name <> "Menu" Then
            dates(sh, 0) = ws.Range("C2").Value
            dates(sh, 1) = ws.Name

            sh = sh + 1
        End If
    Next ws



    nb = UBound(dates)
    tab_temp = dates
    Erase dates
    ReDim dates(nbSheets, 1) As Variant
    For i = 0 To nb
        pos = 0
        For l = 0 To nb
            If tab_temp(i, 0) > tab_temp(l, 0) And i <> l Then
                pos = pos + 1
            End If
        Next
        For ii = 1 To 1
            If dates(pos, 0) = "" Then
                dates(pos, 0) = tab_temp(i, 0)
                dates(pos, 1) = tab_temp(i, 1)
            Else
                pos = pos + 1
                ii = ii - 1
            End If
        Next
    Next


    For i = 1 To 15
        ThisWorkbook.Sheets("Menu").Cells(i+3, "Q").Value = dates(i - 1, 1)
        ThisWorkbook.Sheets("Menu").Cells(i+3, "P").Value = dates(i - 1, 0)
    Next
End Sub

Private Sub Workbook_Open() ' affiche les noms des 15 onglets les plus anciens
Dim feu As Worksheet, idd As Long, dat As Variant, nom As Variant, mdn As Variant
ReDim tbd(1 To 15), tbn(1 To 15)
For Each feu In ThisWorkbook.Sheets
    If feu.Name <> "Menu" Then
        dat = feu.[C2].Value: nom = feu.Name
        For idd = 1 To 15
            If tbd(idd) = "" Then
                tbd(idd) = dat: tbn(idd) = nom: Exit For
            ElseIf dat < tbd(idd) Then
                mdn = tbd(idd): tbd(idd) = dat: dat = mdn
                mdn = tbn(idd): tbn(idd) = nom: nom = mdn
            End If
        Next idd
    End If
Next feu
Sheets("Menu").[Q4:Q18].Value = Application.Transpose(tbn)
End Sub