XL 2010 Ouverture application très longue

Sub fillcombo()
Dim nom_proj(), chemin$, direction, nbfic&, L&

chemin = ThisWorkbook.Path & "\ficpdf\"
direction = Dir(chemin & "*.pdf")

While direction <> ""
nbfic = nbfic + 1: ReDim Preserve nom_proj(1 To nbfic): nom_proj(nbfic) = Split(direction, ".")(0)
direction = Dir()
Wend
'==============================
col = "A": L = 2
With Sheets("Listes")
.Range(.Cells(L, col), .Cells(Rows.Count, col).End(xlUp)).ClearContents
.Cells(L, col).Resize(UBound(nom_proj, 1)) = Application.Transpose(nom_proj)
end with
'==============================

tri_nom (col)
End Sub

Sub fillcombo()
    Dim nom_proj(), chemin$, direction, nbfic&, L&

    chemin = ThisWorkbook.Path & "\ficpdf\"
    direction = Dir(chemin & "*.pdf")

    While direction <> ""
        nbfic = nbfic + 1: ReDim Preserve nom_proj(1 To nbfic): nom_proj(nbfic) = Split(direction, ".")(0)
        direction = Dir()
    Wend
    '==============================
    col = "A": L = 2
    With Sheets("Listes")
        .Range(.Cells(L, col), .Cells(Rows.Count, col).End(xlUp)).ClearContents
        .Cells(L, col).Resize(UBound(nom_proj, 1)) = Application.Transpose(tri_nom(nom_proj))
    end with
    '==============================

End Sub
Function tri_nom(T)
    Dim temp$, I&, I2&
    For I = UBound(T) To LBound(T) Step -1
        For I2 = UBound(T) To LBound(T) Step -1
            If T(I) > T(I2) Then temp = T(I2): T(I2) = T(I): T(I) = temp
        Next
    Next
    tri_nom = T
End Function