Sub SansLesFormules()
Dim TDon(), TRés(), TSeuils(), L As Long
TDon = [C4:E13].Value
ReDim TRés(1 To UBound(TDon, 1), 1 To 2)
TSeuils = Array(0, 10, 12, 16)
For L = 1 To UBound(TDon, 1)
If TDon(L, 1) = "Licence" Then
TRés(L, 1) = 0.25 * TDon(L, 2) + 0.75 * TDon(L, 3)
Else
TRés(L, 1) = 0.35 * TDon(L, 2) + 0.65 * TDon(L, 3)
End If
TRés(L, 2) = Choose(WorksheetFunction.Match(TRés(L, 1), TSeuils), "Ajourné", "Assez Bien", "Bien", "Très Bien")
Next L
Feuil1.[H4:I13].Value = TRés
End Sub