Private Sub Cmd_OK_Click()
    Dim swModel As ModelDoc2
    Dim swDesignTable As DesignTable
    Dim xlWS As Worksheet
    Dim xlWB As Workbook
    Dim OldConfiguration As String
    Dim boolstatus As Boolean
    Dim ActiveConfiguration As String
    Dim ActiveDiameter As Double
    Dim OldPlan As String
    Dim ActivePlan As String
    Dim Plan As SldWorks.ModelDoc2
    Dim longstatus As Long, longwarnings As Long

    If CBox_type.Value = ("Chien") Then
            'Activation du modèle ouvert, nécessaire pour accéder à la famille de pièces
             Set swModel = swApp.ActiveDoc
             
             'Récupération de la famille de pièces associée
             Set swDesignTable = swModel.GetDesignTable
            
             'Si bonne récupération de la famille de pièces
             If Not swDesignTable Is Nothing Then
             
                 'Récupération la feuille excel
                 Set xlWS = swDesignTable.EditTable2(False)
                                  
                 'Conservation de l'ancienne configuration active afin de la supprimer
                 OldConfiguration = xlWS.Range("Choix").Value2
                 
                 'Écriture de la valeur/le texte de la ComboBox dans la cellule Choix étant la cellule où le numéro d'article doit être renseigné pour la RechercheV
                 xlWS.Range("Choix").Value2 = "4 pattes"
                 ActiveConfiguration = xlWS.Range("Choix").Value2
                
                 'Mise à jour ma famille de pièces dans SW et fermeture de la famille
                 swDesignTable.UpdateTable swDesignTableUpdateOptions_e.swUpdateDesignTableAll, True
                 swModel.ShowConfiguration2 ActiveConfiguration
                 swModel.DeleteConfiguration2 OldConfiguration
                 
                 'Cacher le formulaire
                Me.Hide
            End If

ElseIf CBox_type.Value = ("Poule") Then
    
            'Activation du modèle ouvert, nécessaire pour accéder à la famille de pièces
             Set swModel = swApp.ActiveDoc
             
             'Récupération de la famille de pièces associée
             Set swDesignTable = swModel.GetDesignTable
             
             'Si bonne récupération de la famille de pièces
             If Not swDesignTable Is Nothing Then
             
                 'Récupération la feuille excel
                 Set xlWS = swDesignTable.EditTable2(False)
                 
                 'Conservation de l'ancienne configuration active afin de la supprimer
                 OldConfiguration = xlWS.Range("Choix").Value2
                 OldPlan = xlWS.Range("Configuration_mep").Value2
                 
                 'Écriture de la valeur/le texte de la ComboBox dans la cellule Choix étant la cellule où le numéro d'article doit être renseigné pour la RechercheV
                 xlWS.Range("Choix").Value2 = CBox_article.Value
                 ActiveConfiguration = xlWS.Range("Choix").Value2
                 ActiveDiameter = xlWS.Range("D_poule").Value2
                 'ActivePlan = xlWS.Range("Configuration_mep").Value2
                 
                 Dim ShowAllLines As Integer
                 Dim ShowAllColumns As Integer
                 
                 ShowAllLines = xlWS.Columns(1).Find("", after:=[A1]).Row
                 xlWS.Range("A1:A" & ShowAllLines).Select
                 Selection.EntireRow.Hidden = False
                 
                 ShowAllColumns = xlWS.Rows(1).Find("", after:=[A1]).Column
                 xlWS.Range("A1:" & Chr(64 + ShowAllColumns) & "1").Select
                 Selection.EntireColumn.Hidden = False
                                  

                 'Mise à jour ma famille de pièces dans SW et fermeture de la famille
                 swDesignTable.UpdateTable swDesignTableUpdateOptions_e.swUpdateDesignTableAll, True
                 swModel.ShowConfiguration2 ActiveConfiguration
                 swModel.DeleteConfiguration2 OldConfiguration
                 swModel.DeleteConfiguration2 OldPlan
                 
                 'Cacher le formulaire
                  Me.Hide
             End If
     End If
            'Reconstruction de la pièce
            boolstatus = swModel.EditRebuild3()
End