Function PourCent(Phrase$, Tableau As Range, Valeur As Range)
Dim T, Tablo, Val, i%, j%
T = Split(Phrase, " ")
Tablo = Tableau
Val = Valeur
For i = 0 To UBound(T)
For j = 1 To UBound(Tablo)
If LCase(T(i)) = LCase(Tablo(j, 1)) Then
PourCent = Val(j, 1)
Exit Function
End If
Next j
Next i
PourCent = ""
End Function