Top 10 en VBA?

Bonjour tout le monde,

Je suis actuellement occupé à travaillé sur un fichier de devis et aimerait savoir si il existait une manière plus simple que celle que j'utilise pour afficher un top 10 des prix par fournisseur.

Actuellement, j'utilise une fonction IF en vba mais malheureusement je dois réaliser 3 top 10 par distances de livraison et je me retrouve avec 90 fonction if...

C'est pas la joie...

Exemple de ma fonction:

Sub adapt_formula()

Dim Periode1 As String

Dim Periode2 As String

Dim Periode3 As String

Periode1 = "1 Mois"

Periode2 = "< 3 Mois"

Periode3 = " > 3 Mois"

If Range("Periode") = Periode1 Then

Range("Premierprix15").FormulaArray = "=IF(Periode=""1 Mois"",IFERROR(SMALL(IF(Comparateur!B4=Famille_resultat,Prix_unjour15km),1),""""))"

Range("Premierprix15").FormulaArray = "=IF(Periode=""1 Mois"",IFERROR(SMALL(IF(Comparateur!B4=Famille_resultat,Prix_unjour15km),2),""""))"

etc...

Un grand merci pour votre aide

J'ai mis un petit fichier d'exemple (très simplifié)

Bien à vous,