Onglet et valeur cellule

Sub Test()
Dim NomFeuille As String
    NomFeuille = Worksheets("Feuil1").Range("A1").Value
    Worksheets(NomFeuille).Activate
End Sub

i =  Cell.Offset(0, -1).
Worksheets(i).Delete

For Each onglet In Worksheets
If onglet.Name = Range("A1") Then
onglet.Delete
Exit Sub
End If
Next

Worksheets(ActiveCell.Offset(0, -1).Value).Cells.Delete

Worksheets(ActiveCell.Offset(0, -1).Value).Delete

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [B:B]) Is Nothing And Target.Row > 1 And Target <> "" and target.count = 1 Then ma_macro
End Sub