Sub VerifMinimum()
Dim Tablo, Montant, TypePlan, MontantMin, i%
Tablo = [A1].CurrentRegion
Montant = [I20]: TypePlan = [J20]: MontantMin = 0
For i = 1 To UBound(Tablo)
If Tablo(i, 7) = TypePlan And Tablo(i, 15) = "Actif" Then
MontantMin = Tablo(i, 4): Exit For
End If
Next i
If Montant = 0 Then
[N20] = "Type plan non trouvé."
ElseIf Montant >= MontantMin Then
[N20] = "Opération aurorisée."
Else
[N20] = "Montant inférieur au montant min."
End If
End Sub