Mon code ne marche que sur une feuille

Bonjour à tous,

j'ai un petit problème au niveau de mon code

il marche très bien sur la feuille activée mais ne marche pas sur les autres feuilles, sachant que j'ai écrits le code dans un module
voici le code

Public Function kPx(ByVal x As Integer, ByVal k As Integer) As Double

Dim i, j As Integer
Dim lf, lx As Double

Worksheets("Tbl mortalité").Activate

If (x > 110) Or (x + k > 110) Then

lf = 2
lx = 1
Else
'parcourir la table de mortalité pour le calcul de lx

 For i = 1 To 112
     If Cells(i, 1).Value = x Then
  lx = Cells(i, 2).Value
    
 End If
  Next i
  
  'parcourir la table de mortalité pour le calcul de lf
  For j = 1 To 112
  If Cells(j, 1).Value = x + k Then
  lf = Cells(j, 2).Value
  End If
  Next j
  
End If

 kPx = lf / lx

End Function

Function ax(x As Integer, tx_actu As Double, tx_reval As Double) As Double

Dim i As Integer
Dim v As Double

v = (1 / (1 + tx_actu)) * (1 + tx_reval)
s = 0

For i = 1 To 110 - x
   s = s + kPx(x, i) * v ^ i
Next i
 ax = s
 
End Function

en fait il y a deux fonctions , et j'utilise une dans l'autre

s'il est possible de m'aider svp