Que veulent dire ces macros?

Sub Macros()
Dim VBC As Object
 
With ActiveWorkbook.VBProject
    For Each VBC In .VBComponents
        If VBC.Type = 100 Then
            With VBC.CodeModule
                .DeleteLines 1, .CountOfLines
                .CodePane.Window.Close
            End With
        Else
            .VBComponents.Remove VBC
        End If
    Next VBC
End With
 
End Sub

Sub MAIN()
Dim NomFeuille As String
 
NomFeuille = "CALCULS"

ActiveWorkbook.Sheets(NomFeuille).Range("A1:Z9000").ClearContents
 
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
    .DeleteLines 1, .CountOfLines
    .CodePane.Window.Close
End With
 
End Sub

Sub MAINVD()
Dim NomFeuille As String
 
NomFeuille = "PROD_WEEK"

ActiveWorkbook.Sheets(NomFeuille).Range("A1:Z9000").ClearContents
 
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
    .DeleteLines 1, .CountOfLines
    .CodePane.Window.Close
End With
 
End Sub

Sub SUIVI()
Dim NomFeuille As String
 
NomFeuille = "AFFICHEUR"

ActiveWorkbook.Sheets(NomFeuille).Range("A1:Z9000").ClearContents
 
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
    .DeleteLines 1, .CountOfLines
    .CodePane.Window.Close
End With
 
End Sub

Sub Code()
 
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
    .DeleteLines 1, .CountOfLines
    .CodePane.Window.Close
End With
 
End Sub

Sub Boutons()
Dim Obj As OLEObject, X As Integer
 
For X = 1 To Sheets.Count
    For Each Obj In Worksheets(X).OLEObjects
        If TypeOf Obj.Object Is MSForms.CommandButton Then Obj.Delete
    Next Obj
Next X
 
End Sub