Function M_Panier(Type As String) As Double
Dim M_déch As Double
Set M_déchets = Range("G8").Value
If Type = "Opt1" Or Type = "Opt2" Then M_Panier = M_déch
ElseIf Type = "Opt3" Then M_Panier = MAX(5000, M)
ElseIf Type = "Opt4" Then M_Panier = MAX(5000, 2 * M_déch
+ 2959)
ElseIf Type = "Opt5" Then M_Panier = MAX(5000, 2 * M_déch
+ 5316)
Else: M_Panier = MAX(5000, 2 * M_déch
+ 7153)
End If
End Function