Function RechercheSommeV(Valeur_cherchée As Double, Plage As Range, Numéro_colonne As Integer)
Dim derlig&, tablo, i&, x$, j%
derlig = Plage.Parent.UsedRange.Row + Plage.Parent.UsedRange.Rows.Count
tablo = Plage.Columns(1).Resize(derlig - Plage.Row + 1).Formula 'matrice, plus rapide, au moins 2 éléments
For i = 1 To UBound(tablo)
x = "+" & tablo(i, 1)
j = InStr(x, Valeur_cherchée)
If j Then If Not IsNumeric(Mid(x, j - 1, 1)) And Val(Replace(Mid(x, j), ",", ".")) = Valeur_cherchée _
Then RechercheSommeV = Plage(i, Numéro_colonne): Exit Function
Next
RechercheSommeV = [NA()]
End Function