XL 2016 Récupération de la valeur d'une variable d'une procédure à une autre

Sub CheckBox1_Click()
Dim statut As String
If CheckBox1 = True Then
    TextBox_Fin = ""
    TextBox_Fin.Enabled = False
    TextBox_Fin.BackStyle = fmBackStyleTransparent
    statut = "terminé"
    
ElseIf CheckBox1 = False Then
    TextBox_Fin.Enabled = True
    TextBox_Fin = ""
    TextBox_Fin.BackStyle = fmBackStyleOpaque
    statut = "actif"
    
End If
End Sub

'********************************************************
'Ajout d'un nouvel enregistrement dans la base de données
'*********************************************************
Private Sub CommandButton_Ajout_Click()
Dim MaDate As Date
Dim MonMontant As Double

Feuil2.Unprotect "EDFIN" 'déverrouille la feuille données

    MsgBox (statut)
        Sheets("Donnees").Activate
        Range("A2").Select
        Selection.End(xlDown).Select    'positionnement sur la dernière ligne non vide
        Selection.Offset(1, 0).Select   'décalage d'une ligne vers le bas
        ActiveCell = TextBox_Ref.Value
        ActiveCell.Offset(0, 1).Value = Me.TextBox_Anal
        ActiveCell.Offset(0, 2).Value = Me.Cbo_Zone
        ActiveCell.Offset(0, 3).Value = Me.Cbo_Pays
        ActiveCell.Offset(0, 6).Value = Me.TextBox_Client
        ActiveCell.Offset(0, 7).Value = Me.Cbo_Origine
        ActiveCell.Offset(0, 8).Value = Me.TextBox_Libelle
        ActiveCell.Offset(0, 9).Value = Me.TextBox_Expert
        ActiveCell.Offset(0, 10).Value = Me.ComboBox_Referent
        ActiveCell.Offset(0, 11).Value = Me.ComboBox_Etat
        ActiveCell.Offset(0, 12).Value = Me.ComboBox_Type
        ActiveCell.Offset(0, 13).Value = Me.TextBox_Debut
        ActiveCell.Offset(0, 14).Value = Me.TextBox_Fin
        ActiveCell.Offset(0, 15).Value = statut
        ActiveCell.Offset(0, 16).Value = TextBox_Montant
        ActiveCell.Offset(0, 17).Value = TextBox_Commentaire.Value
    
        MsgBox "Le contrat a bien été ajouté à la base de données", vbOKOnly + vbInformation, "CONFIRMATION"
  
        Me.TextBox_Anal = "BU"
        Me.TextBox_Client = ""
        Me.TextBox_Commentaire = ""
        Me.TextBox_Debut = ""
        Me.TextBox_Fin = ""
        Me.TextBox_Expert = ""
        Me.TextBox_Montant = ""
        frmSaisie.Cbo_Zone.AddItem Cells(2, 2).Value
        'Me.Cbo_Pays = Cells(2, 2).Value
        Me.TextBox_Ref = ""
        Me.Cbo_Origine = ""
        'Me.Cbo_Pays.ListIndex = 0
        Me.ComboBox_Etat = ""
        Me.ComboBox_Referent = ""
        Me.ComboBox_Type = ""
        Me.TextBox_Libelle = ""
        Call TRI
    Feuil2.Protect "EDFIN", True, True, True
    

    
End Sub