[VBA excel] regroupement de macros

Option Explicit

Dim k As Variant

Sub (1)
for i = 41 to 712
K = i
.... 

..... 

call sub 2

Sub2 (k)
....

Option Explicit

Sub AfficheResultat(ByVal MonResultat As Long)
    MsgBox MonResultat
End Sub
'

Sub CalculResultat(ByVal Indice1 As Long, ByRef Indice2 As Long)
    Indice2 = (Indice1 * 2)
End Sub
'

Sub EntreeValeur(ByRef donnees As Long)

    Dim Valeur As Variant
    
    Valeur = InputBox("Enterz un nombre : ", "DONNÉES", "100")
    
    donnees = Transforme(Valeur)
    
End Sub
'

Function Transforme(ByVal Entree As Variant) As Long
    Transforme = CLng(Val(Entree))
End Function
'

Option Explicit

Sub Principal()

    Dim Reponse As Long, Multiplicateur As Long

    Multiplicateur = 5

    Module1.EntreeValeur Reponse
    Module1.CalculResultat Multiplicateur, Reponse
    Module1.AfficheResultat Reponse
    
End Sub
'

Sub Principal2()

    Dim Reponse As Long, Multiplicateur As Long

    Multiplicateur = 5

    Call Module1.EntreeValeur(Reponse)
    Call Module1.CalculResultat(Multiplicateur, Reponse)
    Call Module1.AfficheResultat(Reponse)
    
End Sub
'