On Error Resume Next

Dim accessApp
Set accessApp = CreateObject("Access.Application")

accessApp.OpenCurrentDatabase "C:\Users\alexi\Documents\projects\timetrack-pro\db\TimeTrackPro.accdb"

WScript.Echo "=== Deleting specific fake modules ==="

Dim vbProj
Set vbProj = accessApp.VBE.VBProjects(1)

' Supprimer un par un par nom
Dim modulesToDelete
modulesToDelete = Array("Form_frm_Accueil", "Form_frm_Clients", "Form_frm_Projets", "Form_frm_Historique")

Dim i
For i = LBound(modulesToDelete) To UBound(modulesToDelete)
    Dim comp
    Set comp = Nothing

    ' Trouver le module
    Dim c
    For Each c In vbProj.VBComponents
        If c.Name = modulesToDelete(i) Then
            Set comp = c
            Exit For
        End If
    Next

    ' Supprimer si trouve
    If Not comp Is Nothing Then
        WScript.Echo "Deleting: " & comp.Name & " (Type " & comp.Type & ")"
        vbProj.VBComponents.Remove comp
        WScript.Echo "  -> Deleted!"
    Else
        WScript.Echo "Not found: " & modulesToDelete(i)
    End If
Next

WScript.Echo ""
WScript.Echo "=== Remaining modules ==="
For Each c In vbProj.VBComponents
    WScript.Echo c.Name & " - Type: " & c.Type
Next

accessApp.CloseCurrentDatabase
accessApp.Quit
Set accessApp = Nothing