Supprimer un feuille et un ligne

Je voudrais Supprimer Une feuille et Une ligne d'une autre feuille ayant le meme nom en le choisisant dans une Userform.
j'arrive a supprimer la feuille mais pas la ligne.
merci de votre aide.

Voici le code :


Private Sub Valider_Click()
ListeSupprimer.Hide
Index = SelectFeuille.ListIndex
ChoixFeuille = SelectFeuille.List(Index)

Dim Feuille As String
Feuille = ChoixFeuille
Sheets(ChoixFeuille).Select

Sheets("1.Menu").Select

msg = "Voulez-vous Supprimer ce transporteur ?"
Title = "ATTENTION SUPPRESSION !"
Réponse = MsgBox(msg, 276, Title)
If Réponse = vbYes Then

Sheets(ChoixFeuille.Value).Select
ActiveWindow.SelectedSheets.Delete
Sheets("1.Menu").Select
ActiveCell(ChoixFeuille.Value).Select
Selection.EntireRow.Delete

Else

End If
Sheets("1.Menu").Select
End Sub