Option Explicit
Public PremLigne As Integer, DerLigne As Integer ' La déclaration de tes variables est valable pour tout le fichier
Sub Affichage()
Run "DéterminationLignes" ' Lance ta sous macro
MsgBox (PremLigne & " : " & DerLigne) ' Affiche le résultat de ta sous macro
End Sub
Sub DéterminationLignes() ' Ta sous macro
PremLigne = 5 ' Là, tu mets le résultat de ton calcul, je ne sais pas ce que tu utilises avant pour la déterminer
DerLigne = 15 ' Idem pour ta dernière ligne
End Sub