Public Sub SupprimeFeuilleExcel(ByVal sMonBook As String, _ 
ByVal sNomFeuilleASupprimer As String)
If Dir(sMonBook) <> "" Then

Dim xlApp As Excel.Application 
Dim xlBook As Workbook
Dim i As Integer


Dim bFlag As Boolean
xlApp = CreateObject("Excel.Application") 
xlBook = xlApp.Workbooks.Open(sMonBook)
For i = 1 To xlBook.Sheets.Count 
If xlBook.Sheets(i).Name = sNomFeuilleASupprimer Then

Application.DisplayAlerts = False

xlBook.Sheets(sNomFeuilleASupprimer).Delete()

Application.DisplayAlerts = True

Exit For

ElseIf i = xlBook.Sheets.Count Then
MsgBox("La feuille à suprrimer n'existe pas!", vbCritical) 
End If
Next i
xlBook.Close(True) 
xlApp.Quit()

xlBook = Nothing

xlApp = Nothing

Else
MsgBox("Le fichier n'existe pas, vérifier le chemin !", vbCritical) 
End If

End Sub

'Exemple d'utilisation
Private Sub CommandButton1_Click() 
Call SupprimeFeuilleExcel("C:\Classeur1.xls", "Feuil3")
End Sub

' ** Référence : Microsoft Excel 11.0 Library Objects ou équivalent
Public Function SupprimeFeuilleExcel(ByVal sMonBook As String, _ 
ByVal sNomFeuilleASupprimer As String) As Boolean

If My.Computer.FileSystem.FileExists(sMonBook) Then
Dim xlApp As Microsoft.Office.Interop.Excel.Application 
Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
Dim i As Integer

xlApp = CreateObject("Excel.Application") 
xlBook = xlApp.Workbooks.Open(sMonBook)
For i = 1 To xlBook.Sheets.Count 
If xlBook.Sheets(i).Name = sNomFeuilleASupprimer Then

xlApp.DisplayAlerts = False

xlBook.Sheets(sNomFeuilleASupprimer).Delete()

xlApp.DisplayAlerts = True

Exit For

ElseIf i = xlBook.Sheets.Count Then
MsgBox("La feuille à suprrimer n'existe pas!", vbCritical) 
End If
Next ixlBook.Close(True) 
xlApp.Quit()

xlBook = Nothing

xlApp = Nothing

Else
MsgBox("Le fichier n'existe pas, vérifier le chemin !", vbCritical) 
End If

End Function

'Exemple d'utilisation
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Call SupprimeFeuilleExcel("C:\Classeur1.xls", "Feuil1")
End Sub