bonjour les amis je suis nouveau et pour cause j'èsper trouver une réponse à une situation très délicate

voila : je veut insérer une fonction pour le calcule de l'IRG dans mon classeur...ça marche pour le premier coup mais quand je ferme le document et que je veut le réutiliser il affiche à la case IRG #NOM! et ça ne veu plus refaire le calcule

la fonction est ;

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Function irg(ByVal montant)
 
Dim impos As Double
Dim abat
impos = 0#
irg = 0#
montant = Int(montant)
 
 
 
If ((montant >= 10001) And (montant <= 30000)) Then impos = (montant - _
10000) * 0.2
If ((montant >= 30001) And (montant <= 120000)) Then impos = 4000 + _
(montant - 30000) * 0.3
If montant >= 120001 Then impos = 31000 + _
(montant - 120000) * 0.35
 
abat = (40 * impos / 100)
If abat < 1000 Then abat = 1000
If abat > 1500 Then abat = 1500
impos = impos - abat
 
impos = (impos * 10) + 0.0001
impos = impos / 10
impos = Int(impos)
irg = impos
If irg < 0 Then irg = 0
 
End Function
aidez moi SVP Merci