Passer une feuille en argument - incompatibilité de type

Bonjour,

Je buggue pour passer une feuille en argument d'une procédure...
Erreur 13 - incompatibilité de type.
ça ne doit pas être grand-chose, mais je ne trouve pas...
Voici le code... Si vous avez besoin de plus de morceaux de code, dites-moi, je rajouterai :

Déclaration de la variable publique dans un module "Initialisation"

        Public shSource As Worksheet

Dans une macro lambda : Set de la variable + appel de la macro Records

        Set shSource = ActiveSheet
        Call Records(shSource)

L'erreur de type survient quand je fais l'appel de la macro Records

Et enfin la macro Records, avec la ligne où j'utilise la variable shSource

Sub Records(ByVal shSource As Sheets)
        Dim NbrPlusNiveau as Integer

        NbrPlusNiveau = NbrPlusNiveau + shSource.Range("BR55").Value + shSource.Range("BR63").Value + shSource.Range("BR71").Value 
        MsgBox NbrPlusNiveau
End sub

Bonne nuit à tous !