Min Conditionnel sur plusieurs variables

Bonjour, je galère actuellement pour trouver un équivalent dans VBA à la formule Excel suivante :

Code:

---

{=MIN(SI((A4:A1300=A1301)*(B4:B1300=B1301)*(F4:F1300=F1301)*(G4:G1300=G1301);T4:T1300))}

---

J'ai une grande quantité de calculs a effectuer, et sous la forme matricielle pour simplifier.

L'idée de ce calcul est de me donner la valeur la plus faible sur une série de données avec 4 critères de recherches, donc si vous avez d'autres idées, je suis preneur.
J'avais essayé la fonction filtre, mais elle me fait perdre 15 minutes dans ma macro...

Edit : J'ai ajouté un fichier d'exemple que j'ai fait sur Excel mais que j'aimerai retranscrire en VBA.

Bonjour,

Je n'ai pas vraiment compris quel est le but à atteindre. Malgré cela, en me basant sur votre exemple, j'arrive à obtenir le même résultat. A tout hasard, je fais paraître le code.
J'ai construit une fonction personnalisée Min_MultiCriteres (qui demande 2 paramètres Range) qu'on utilise comme une fonction intégrée d'Excel.

Code à copier dans un module standard

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Function Min_MultiCriteres(Champ As Range, Compare As Range) As Double Const DEFAUT As Double = 99999999999# 'on fixe, par défaut, le minimum à une très grande valeur Dim var Dim T() Dim i& Dim j& Dim A$ Dim Mini# '--- var = Champ ReDim T(1 To UBound(var, 1), 1 To 2) '--- For i& = 1 To UBound(var, 1) For j& = 1 To UBound(var, 2) T(i&, 1) = T(i&, 1) & Trim(CStr(var(i&, j&))) Next j& T(i&, 2) = var(i&, UBound(var, 2)) Next i& '--- var = Compare For j& = 1 To UBound(var, 2) A$ = A$ & var(1, j&) Next j& '--- Mini# = DEFAUT For i& = 1 To UBound(T, 1) If Mid(T(i&, 1), 1, Len(A$)) = A$ Then If IsNumeric(T(i&, 2)) Then If T(i&, 2) < Mini# Then Mini# = T(i&, 2) End If End If Next i& If Mini# <> DEFAUT Then Min_MultiCriteres = Mini# End Function

---

Exemple d'utilisation (je me base sur votre exemple)
En cellule H11 tapez la formule =Min_MultiCriteres(A3:E9;A11:E11)

Je joins un classeur exemple pour faciliter.