Supression de lignes en vba (via usf)

Bonjour, j'ai fais un userform, pour effacer une ligne dans mon classeur, avec une textbox et un combobox où l'utilisateur aurait juste à rentrer le nom de la feuille où il souhaite effacer la ligne ( choix de la feuille via le combobox) et rentrer le numéro de la ligne dans la textbox.
J'ai donc fais le code ci-dessous pour permettre ceci. Cependant, il ne fonctionne pas mais ne bug pas non plus. Voilà donc bien un souci pour pouvoir le faire fonctionner s'il ne détecte pas d'erreur. En effet, lorsque je lance la procédure, je rentre la feuille, le numéro de ligne, click sur terminer pour exécuter et fermer l'userform et l'userform se ferme sans me renvoyer d'erreur et sans pour autant avoir supprimé quoi que se soit.
J'ai beau relire mon code, je ne vois pas ce que je fais mal (rien apparement puisqu'il ne me signale aucun souci).

Dim a As String, b As String, cherche1 as string

a = Workbooks("GMAO.xls").Worksheets("machines").Cells(2, 1) 'historique des pannes
b = Workbooks("GMAO.xls").Worksheets("machines").Cells(3, 1) 'stock
     
    If ComboBox_nom.Value = "" Then
        MsgBox ("aucune page choisie"): Beep
        TextBox_sup.SetFocus
    ElseIf TextBox_sup.Value = "" Then
        MsgBox ("aucune ligne saisie"): Beep
    Else
    
   cherche1 = TextBox_sup.Value
   
    If ComboBox_nom.Value = a Then
        Worksheets("historique des pannes").Select
        With Workbooks("GMAO.xls").Worksheets("historique des pannes").Range("E8:E65536")
        Set e = .Find(cherche1, LookIn:=xlValues)
            If Not e Is Nothing Then
            firstAddress = e.Address
            e.Rows.Select
            Selection.Delete Shift:=xlUp
            End If
        End With
               
       ElseIf ComboBox_nom.Value = b Then
        Worksheets("stock").Select
        With Workbooks("GMAO.xls").Worksheets("stock").Range("E12:E65536")
        Set e = .Find(cherche1, LookIn:=xlValues)
            If Not e Is Nothing Then
             firstAddress = e.Address
             e.Rows.Select
            Selection.Delete Shift:=xlUp
            End If
        End With
End if
        

Un peu d'aide serait la bienvenue :)