à tous

j'essaie depuis peu de rechercher une valeur dans mon classeur et de la supprimer.
La valeur est le nom d'une feuille et le contenu d'une cellule.
La cellule recherché se trouve sur la feuille "Liste", colonne B.
La feuille recherché se trouve dans le classeur.
La recherche et suppression est faite via un combobox de l'userform et peut se retrouver sur n'importe quelle feuille du classeur.
Pour la suppression de la feuille, j'ai le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
...
 
If Valeur = ComboBox1.Text Then
   Sheets(ComboBox1.Text).Activate
End If
MsgBox " Êtes-vous sûr de vouloir supprimer " & ComboBox1 & " ?"
 If vbYes Then
 Application.DisplayAlerts = False
 Sheets(ComboBox1.Text).Delete
 Application.DisplayAlerts = True
 End If
 Unload Me
...
Pour la suppression de la ligne, j'ai le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
...
 
Dim J As Long
Dim Plage As Range
Set Plage = Range("B7", Range("B65536").End(xlUp))
For J = Plage.Cells.Count To 1 Step -1
    If Plage.Cells(J).Value = ComboBox1 Then
        Plage.Cells(J).EntireRow.Delete
    End If
Next
 
...
Ces bouts de code testés distinctement fonctionnent très bien.
j'essaye de les mettre ensemble mais j'obtient juste la suppression
de la feuille et non de la ligne de la cellule correspondante en feuille "Liste".

Merci de bien vouloir m'aider