Auto Calc: INDIC 2008/2022/2023/2024 VBA

' Fonction Saler + IEP By Boussaid Mustafa
' APC SALI 2023
' Usage:
' =Indic(A1;2023)
' =IepIndic(A1;A2;2023)
Function Indic(Categori As Integer, nYear As Integer)
    Dim val As Integer
    Dim nFirst As Integer
    If Categori >= 11 And Categori <= 17 Then
        val = 18
    ElseIf Categori >= 9 And Categori <= 10 Then
        val = 10
    ElseIf Categori >= 7 And Categori <= 8 Then
        val = 4
    Else
        val = 0
    End If
    Select Case nYear
        Case 2008: nFirst = 200
        Case 2022: nFirst = 250
        Case 2023: nFirst = 325
        Case 2024: nFirst = 400
    End Select
    Indic = val + (Categori - 1) * 19 + nFirst + (Categori - 2) * (Categori - 1)
End Function

' Fonction Saler + IEP By Boussaid Mustafa
' APC SALI 2023
Function IepIndic(Categori As Integer, Echlon As Integer, nYear As Integer)
    Dim IndiceCategorie As Integer
    IndiceCategorie = Indic(Categori, nYear)
    IepIndic = Round(IndiceCategorie * 0.05 * Echlon, 0)
    If nYear = 2008 Then
        If Categori = 8 And Echlon = 12 Then
            IepIndic = IepIndic - 2
        End If
    End If
    If nYear = 2022 Then
        Dim nPlus As Integer
        Select Case Echlon
            Case 1: nPlus = 3
            Case 2: nPlus = 5
            Case 3: nPlus = 8
            Case 4: nPlus = 10
            Case 5: nPlus = 13
            Case 6: nPlus = 15
            Case 7: nPlus = 18
            Case 8: nPlus = 20
            Case 9: nPlus = 23
            Case 10: nPlus = 25
            Case 11: nPlus = 28
            Case 12: nPlus = 30
            Case Else: nPlus = 0
        End Select
        IepIndic = IepIndic(Categori, Echlon, 2008) + nPlus
    End If
End Function