Utiliser la value d'un OptionButton autre part que dans le Sub

Bonjour,

J'ai un Formulaire dans lequel je coche soit option essentielle, soit option moyenne, soit option toute.

Les trois premières fonctions sont des procédures évênementielles :
-> Public Sub Option_Essentielle_Click()
-> Public Sub Option_Moyenne_Click()
-> Public Sub Option_Toute_Click()

récupèrent ce que l'utilisateur a choisi sous forme de OptionButton. Il coche soit la case essentielle, moyenne ou toute.

Les trois secondes fonctions :
-> Public Function Essentielle() As Boolean
-> Public Function Moyenne() As Boolean
-> Public Function Toute() As Boolean

sont censées récupérer la valeur booléenne des OptionsButtons pour renvoyer la valeur booléenne de l'option qui est à TRUE.
(Je passe par une function parce que je ne peux pas renvoyer de valeur avec une Sub et je suis obligé d'utiliser une Sub pour pouvoir manipuler les OptionButton)

Et la dernière fonction :
-> Public Sub laquelle()

appelle une variante de GenerPerimetreAction(1, 2 ou 3) qui va avoir une action différente en fonction de quelle option est à TRUE.

MON PROBLEME :
Dans les trois secondes fonctions, il ne rentre jamais dans les conditions :

If Me.Option_Essentielle = True Then
Essentielle = True
End If

If Me.Option_Moyenne = True Then
Moyenne = True
End If

If Me.Option_Toute = True Then
Option = True
End If

J'ai l'impression que les OptionsButtons :
-> Me.Option_Essentielle
-> Me.Option_Moyenne
-> Me.Option_Toute

ne sont déclarés que dans les trois premières fonctions et que je ne peux pas les réutiliser dans d'autres fonctions.

Je ne sais pas comment faire, pouvez - vous m'aider ?

Voici le code ci-dessous :

Public Sub Option_Essentielle_Click()

    Me.Option_Essentielle = True
    Me.Option_Moyenne = False
    Me.Option_Toute = False
    
End Sub

Public Sub Option_Moyenne_Click()

    Me.Option_Essentielle = False
    Me.Option_Moyenne = True
    Me.Option_Toute = False

End Sub

Public Sub Option_Toute_Click()

    Me.Option_Essentielle = False
    Me.Option_Moyenne = False
    Me.Option_Toute = True

End Sub

--------------------------------------------------------------------

Public Function Essentielle() As Boolean

    If Me.Option_Essentielle = True Then
    Essentielle = True
    End If

End Function

Public Function Moyenne() As Boolean
    
    If Me.Option_Moyenne = True Then
    Moyenne = True
    End If

End Function

Public Function Toute() As Boolean

    If Me.Option_Toute = True Then
    Toute = True
   End If
 
End Function

--------------------------------------------------------------------

Public Sub laquelle()

    If Essentielle = True Then
    Call GenerPerimetreActions(1)
    End If
    
    If Moyenne = True Then
    Call GenerPerimetreActions(2)
    End If
    
    If Toute = True Then
    Call GenerPerimetreActions(3)
    End If
    
End Sub