Tableau, incrementation et procédure VB

Bonjour,
Je vais essayer d'être clair, mais je promet rien, donc voici mon problème et je remercie d'avance ceux qui auront le temps de m'aider:
J'ai une macro sous excel qui a pour but d'afficher du texte dans un tableau, Pour éviter de réécrire plusieurs fois un bout de code j'ai préféré appeler une procédure. Le problème ce que les seules choses qui s'écrivent dans mon tableau sont les 2 premiers élément ("LSL réservoir HS" et "Période de mise en service"). A partir du moment ou je rentre dans ma procédure (je l'ai éxecuté en pas à pas pour voir), les indices de mon tableau MatResultHG n'appartiennent pas à la sélection.
Savez vous quel est le problème, si je m'y prend bien, ou autre, je suis ouvert à plusieurs propositions quitte à refondre une bonne partie du code.

Encore une fois merci d'avance et voici le bout de code qui va avec mon explication :

Kakamou

' VRAI_BAS_NIV_RESERVOIR_CAS1
i = 40
j = 4
comptagedesvrais = 0
faitstotaux = 12
'faits supposés
If lrh = "NSP" Then
MatResultHG(i, j) = "LSL réservoir HS"
j = j + 1
End If
If pdmes = "NSP" Then
MatResultHG(i, j) = "Période de mise en service"
j = j + 1
End If
'cavitation_cas1_supposé~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Call cavitation_cas1_supposé

avec
Sub cavitation_cas1_supposé()
If bdgt = "NSP" Then
MatResultHG(i, j) = "Bruit de gravier tuyauterie"
j = j + 1
End If
If pmrpb = "NSP" Then
MatResultHG(i, j) = "Pompage mano ref. pompe BP"
j = j + 1
End If
If pampb = "NSP" Then
MatResultHG(i, j) = "Pompage amp. moto pompe BP"
j = j + 1
End If
If mpes = "NSP" Then
MatResultHG(i, j) = "Moto pompe en service"
j = j + 1
End If
If prpbo = "NSP" Then
MatResultHG(i, j) = "Pression ref. pompe BP OK"
j = j + 1
End If
'baiss_press_ref_pomp_bp_cas1_supposé~~~~~~~~~~~~~~~~~~~~~~
Call baiss_press_ref_pomp_bp_cas1_supposé

et de manière semblable

Sub baiss_press_ref_pomp_bp_cas1_supposé()
If tbna = "NSP" Then
MatResultHG(i, j) = "Très bas niveau accu"
j = j + 1
End If
If pg = "NSP" Then
MatResultHG(i, j) = "PSL graissage"
j = j + 1
End If
If prpbh = "NSP" Then
MatResultHG(i, j) = "PSL ref. pompe bp HS"
j = j + 1
End If
If bna = "NSP" Then
MatResultHG(i, j) = "Baisse niveau accu."
j = j + 1
End If
If faa = "NSP" Then
MatResultHG(i, j) = "Fuite alimentation azote"
j = j + 1
End If