Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swDraw As SldWorks.DrawingDoc

Dim vSheetName As Variant

Dim i As Integer

Dim bRet As Boolean

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swDraw = swModel

' Get the sheets in the drawing document

vSheetName = swDraw.GetSheetNames

' Traverse the drawing sheets

For i = 0 To UBound(vSheetName)

If vSheetName(i) = "Feuille2" then

   bRet = swDraw.ActivateSheet("Feuille2")

   Dim swSheet As Sheet

	Set swSheet = swDrawing.GetCurrentSheet


	swmodel.EditDelete
end if

Next i

End Sub