XL 2016 Variable d'un module de classe à un autre

Sub NomObj(i As Integer, rec As String, IDobjet As String, ComboBox As MSForms.ComboBox)
    
    Dim type_controle As String
    Set ComboBox = Initialisation.Controls("ComboBox1")
    'Associser à chaque choix de la ComboBox une lettre
    Select Case ComboBox
        Case "Controle mecanique"
            type_controle = "A"
        Case "Controle electrique"
            type_controle = "B"
    End Select
    
    'ne garder la chaine rec qu'a partir du 6ème élement
    rec = Mid(rec, 6)
    
    'regrouper les différents éléments du nom pour créer l'identifiant au complet
    IDobjet = type_controle & "0" & rec & Format((i - 4), "000")
        
End Sub

NomObj i, (Cells(4, captionID.Column)), IDobjet, ComboBox

Option Explicit
Public WithEvents Bouton As MSForms.CommandButton


Sub Bouton_Click()
      
    Dim ComboBox As Control
    Dim i As Integer
    Dim letter As String
    Dim ctrl As Control
    Dim lettredutest As Control
    Dim X As String
    Dim rec As String
    
    Dim Multipage As MSForms.Multipage
    
    For Each ctrl In Initialisation.Controls
        If TypeOf ctrl Is MSForms.Multipage Then
            Dim page As MSForms.page
            For Each page In ctrl.Pages
                Dim pageCtrl As Control
                For Each pageCtrl In page.Controls
                    If TypeOf pageCtrl Is MSForms.ComboBox Then
                        X = Left(pageCtrl.Name, 1)
                    End If
                Next pageCtrl
            Next page
        End If
    Next ctrl
    
   ' For Each ctrl In Initialisation.Controls
   '     If TypeOf ctrl Is MSForms.TextBox Or TypeOf ctrl Is MSForms.ComboBox Then
   '        X = Left(ctrl.Name, 1)
   '     End If
   ' Next ctrl
    
    'Sanction en fonction du type de controle (lettre) et de la ligne du test
    For i = 1 To (DerniereLigne - 4)
        If Initialisation.Controls(X & "0" & rec & "00" & i) = "OK" Then
            Initialisation.Controls("L" & X & "000100" & i) = "CORRECT"
        ElseIf Initialisation.Controls(X & "000100" & i) = "NOK" Then
            Initialisation.Controls("L" & X & "000100" & i) = "ERREUR"
        End If
    Next i

End Sub