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 "=== Cleaning up OLD_* modules ==="

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

Dim modulesToDelete
modulesToDelete = Array("OLD_Form_frm_Accueil", "OLD_Form_frm_Clients", "OLD_Form_frm_Projets", "OLD_Form_frm_Historique")

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

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

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

WScript.Echo ""
WScript.Echo "=== Cleanup complete! ==="

accessApp.CloseCurrentDatabase
accessApp.Quit
Set accessApp = Nothing