Function Moy(x$, correspondance As Range, separateur$)
Dim s, ub%, a(), i%, v As Variant
s = Split(x, separateur)
ub = UBound(s)
If ub = -1 Then Exit Function
ReDim a(ub)
For i = 0 To ub
v = Application.VLookup(s(i), correspondance, 2, 0)
If IsNumeric(v) Then a(i) = v
Moy = Application.Average(a)
Next
End Function
=SIERREUR(RECHERCHEV(ARRONDI(W3;0);AA:AB;2;0);"")
=SIERREUR(RECHERCHEV(RECHERCHE(9^9;C3:V3);AA:AB;2;0);"")