Aide pour comprendre le language VBA

Option Explicit
Sub purge()
    Sheets("base").Activate
    Application.EnableEvents = False
        Range([ax10], [b65536].End(xlUp)).ClearContents
        Range("b10") = 0
Call initialise
End Sub
Sub Stat()
    Sheets("Stat").Activate
    Range("b4").Activate
End Sub
Sub AfficherTout()
    Application.ScreenUpdating = False
        With Sheets("base")
        .Activate
        .Rows(8).ClearContents
        .Rows(9).Hidden = True
         On Error Resume Next
        .ShowAllData
         On Error GoTo 0
        .Application.Goto Range("a10"), Scroll:=True
        .Range("b8").Activate
        End With
    Application.EnableEvents = True
End Sub
Sub NouvFiche()
    Application.ScreenUpdating = False
    Range("BASE!B8:AX8").ClearContents
        With Sheets("Fiche")
            .Activate
            .Range("h14:h47").ClearContents                     'cases
            .Range("c9:c14").ClearContents                      'arrivée + liste
            .Range("f7:f11").ClearContents                      'Nom Prénom + NIR
            .Range("b50:h56").ClearContents                     'commentaires
            .Range("h3") = Range("base!b65536").End(xlUp) + 1   'compteur N° Fiche
            .Range("c3") = Date
        End With
End Sub
Sub initialise()
Dim DerLig As Long
DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
        Application.ScreenUpdating = False
    Sheets("base").Activate
    
            Range("b9:ax" & DerLig).Name = "base"
            Range("b10:b" & DerLig).Name = "Fiches"
            Range("c10:i" & DerLig).Name = "Visites"
            '******************************************
            Range("i10:i" & DerLig).Name = "Col_i"
            Range("j10:j" & DerLig).Name = "Col_j"
            Range("k10:k" & DerLig).Name = "Col_k"
            Range("L10:L" & DerLig).Name = "Col_L"
            Range("n10:n" & DerLig).Name = "Col_n"
            Range("o10:o" & DerLig).Name = "Col_o"
            Range("p10:p" & DerLig).Name = "Col_p"
            Range("r10:r" & DerLig).Name = "Col_r"
            Range("s10:s" & DerLig).Name = "Col_s"
            Range("t10:t" & DerLig).Name = "Col_t"
            Range("u10:u" & DerLig).Name = "Col_u"
            Range("v10:v" & DerLig).Name = "Col_v"
            Range("w10:w" & DerLig).Name = "Col_w"
            Range("x10:x" & DerLig).Name = "Col_x"
            Range("z10:z" & DerLig).Name = "Col_z"
            Range("aa10:aa" & DerLig).Name = "Col_aa"
            Range("ab10:ab" & DerLig).Name = "Col_ab"
            Range("ac10:ac" & DerLig).Name = "Col_ac"
            Range("ae10:ae" & DerLig).Name = "Col_ae"
            Range("af10:af" & DerLig).Name = "Col_af"
            Range("ag10:ag" & DerLig).Name = "Col_ag"
            Range("ah10:ah" & DerLig).Name = "Col_ah"
            Range("ai10:ai" & DerLig).Name = "Col_ai"
            Range("aj10:aj" & DerLig).Name = "Col_aj"
            Range("ak10:ak" & DerLig).Name = "Col_ak"
            Range("am10:am" & DerLig).Name = "Col_am"
            Range("an10:an" & DerLig).Name = "Col_an"
            Range("ap10:ap" & DerLig).Name = "Col_ap"
            Range("aq10:aq" & DerLig).Name = "Col_aq"
            Application.Goto [a10], Scroll:=True
End Sub
Sub Note_aide() ' procédure
        Application.ScreenUpdating = False
    With Range("c1")
        If .Value = 1 Then
        Range("c1").Comment.Visible = True
        Range("d1").Comment.Visible = False
            .Value = 2
            Exit Sub
        End If
        If .Value = 2 Then
        Range("c1").Comment.Visible = False
        Range("d1").Comment.Visible = True
            .Value = 3
            Exit Sub
        End If
        If .Value = 3 Then
        Range("c1").Comment.Visible = False
        Range("d1").Comment.Visible = False
            .Value = 1
        End If
    End With
        Range("b8").Activate
End Sub

Sub purge() ' entre sub et end sub ce sont des procédures, c'est à dire que tu peux les appeler depuis un autre endroit du code ou simplement depuis [/contents/1103-introduction-a-la-notion-de-tableur Excel] comme macro
' Au fait, les apostrophes permettent d'écrire des commentaires
Sheets("base").Activate ' Ici on active la feuille "base" sur laquelle on veut travailler
Application.EnableEvents = False 'désactive temporairement les macros événementielles ce qui permet que la macro s'effectue jusqu'à la fin
Range([ax10], [b65536].End(xlUp)).ClearContents ' ici on vide le contenu de chacune des cases marquée (End(xlUp) remonte jusqu'à la dernière ligne non vide)
Range("b10") = 0 'met cette case égale à zéro
Call initialise ' transfère le contrôle à la procédure initialise()
End Sub

If IsEmpty(Range("b1")) & IsEmpty(Range("b2")) Then
    MsgBox "Remplir tous les champs svp."
Else
    execution()
End If

Private Sub CommandButton1_Click()
If IsEmpty(Range("b1")) & IsEmpty(Range("b2")) Then ' Si les champs b1 et b2 ne sont pas remplis, alors
    MsgBox "Remplir tous les champs svp." ' On envoie une boîte de message
Else ' Sinon
    With Sheets("synt").Range("B1:B28") ' On exécute la procédure
        .Copy
        Sheets("Base").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial _
        Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    End With

    ActiveWorkbook.Save
End If
End Sub