Public Ma_Cellule as String
Function MaRechercheV_Mat(Source As Range)
Dim Cell As Range
Dim DL As Integer
Dim Poids, Ma_Variable, Valeur_Recherche
DL = Cells(2, 1).End(xlDown).Row
For Each Cell In Source
Ma_Cellule = Cell
Poids = Cells(Cell.Row, 2).Value
Ma_Variable = Mon_Test(Ma_Cellule)
Valeur_Recherche = Valeur_Recherche + (Ma_Variable * Poids)
Next Cell
MaRechercheV_Mat = Valeur_Recherche
End Function
Function Mon_Test(Ma_Cellule As String)
Dim Ma_Table As Range
Set Ma_Table = Worksheets("Paramètres").Range("A1:D23")
Mon_Test = Application.WorksheetFunction.VLookup(Ma_Cellule, Ma_Table, 4, False)
End Function