Code VBA?

Bonjour,
je cherche un code VBA pour le calcule de l'IRG (l’impôt sur le revenue global)
sur le site officiel du ministère, ils ont publier un code, mais je ne vois pas comment l'utiliser (je suis nul en VBA, ou du moins, ça ne ressemble pas un code VBA)

PARAMETERS SOUMIS,RTS1,abat
SET DECIMAL TO 1
STORE 0 TO TC,PAS,R1
SELECT 5
USE TAB07
BRTS=SOUMIS*12

• CALCUL DE L'IMPOT ANNUEL

DO WHILE .NOT.EOF()
IF BRTS<=TRS
EXIT
ELSE
SKIP +1
ENDIF
ENDDO
STORE TAX TO TAUX
SKIP -1
STORE TRS TO TB
STORE IMPAN TO TD
N=BRTS-TB
IMPOTA=(N*TAUX/100)+TD

• CALCUL DU CREDIT D'IMPOT MENSUEL

IMPM=IMPOTA/12
ABAT=(40*IMPM/100)
IF ABAT<1000
ABAT=1000
ENDIF
IF ABAT>1500
ABAT=1500
endif
RET=IMPM-ABAT
IF RET<0
RET=0
endif

• • • • • IRG ARRONDIE A LA DIZAINE DE CENTIME INFERIEURE
        • RTS1=(RET*10)
        • RTS1=INT(RTS1)
        • RTS1=RTS1/10
          • • • • • • • • • • • • • • • • • • • IRG ARRONDIE A LA DIZAINE DE CENTIME

INFERIEURE
SET DECIMALS TO 4
RTS1=(RET*10) + 0.0001
RTS1=INT(RTS1)
RTS1=RTS1/10
SET DECIMALS TO 2
RETURN

meric à vous tous