XL 2010 Supprimer une ligne si

Option Explicit


Sub Macroessais_transfert()
Dim NomToSup As String


'message de confirmation de suppression
If MsgBox("Cette action suprimera la fiche", vbYesNo, "Attention") = vbNo Then Exit Sub
NomToSup = ActiveSheet.Name 'nom de la feuille qui sera supprimée




Application.DisplayAlerts = False 'desactive les alertes
ActiveSheet.Delete 'Suppression Fiche


With Sheets("Feuil1").ListObjects(1) 'avec la table de la feuille
    Set trouve = .ListColumns("Colonne1").Range.Find(NomToSup, lookat:=xlWhole) 'on cherche le nom de la feuille dans la colonne 1
    If Not trouve Is Nothing Then
        lig = trouve.Row - .Range.Row 'numéro de ligne
        .ListRows(lig).Range.Delete 'suppression de la ligne
    End If
End With


Application.DisplayAlerts = True 'resactive les alertes
End Sub