Action supprimer feuille code

Option Explicit
Dim ListeFeuilles(200) As String, nbFeuilles As Long

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Sh As Worksheet, i As Long, j As Long, k As Long, ok As Boolean
    For i = 1 To nbFeuilles
        ok = False
        For j = 1 To Sheets.Count
            If ListeFeuilles(i) = Sheets(j).Name Then
                ok = True
                Exit For
            End If
        Next j
        If Not ok Then
            k = k + 1
            Cells(k, 1) = ListeFeuilles(i)
        End If
    Next i
    If k > 0 Then Cells(k + 1, 1) = ""
End Sub

Private Sub Workbook_Open()
    Dim Sh As Worksheet, i As Long
    For i = 1 To Sheets.Count
        ListeFeuilles(i) = Sheets(i).Name
    Next i
    nbFeuilles = i - 1
End Sub
Sub Lister()
    Call Workbook_BeforeClose(False)
End Sub

Public feuil As String, fc As Integer
Private Sub Workbook_SheetActivate(ByVal sh As Object)
    If ThisWorkbook.Sheets.Count <> fc Then Workbook_SheetDeleted feuil
End Sub

Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
    fc = ThisWorkbook.Sheets.Count
    feuil = sh.Name
End Sub
Private Sub Workbook_SheetDeleted(ByVal sh As String)
    MsgBox "Feuille : " & sh & " Détuite"
End Sub