L'enregistreur macro est un outil capable de transformer une série de manipulations en un programme Visual Basic. On peut par exemple (voir exercice 4) l'utiliser pour obtenir un programme mettant en gras la cellule A2 de la feuille "facture" :

Sub Macro7()
    Sheets("facture").Select
    Range("A2").Select
    Selection.Font.Bold = True
End Sub

Tel quel, ce programme n'a guère d'intérêt pratique, mais nous pouvons en tirer parti en adaptant la macro colorier pour mettre en gras les articles achetés à plusieurs exemplaires :

Sub gras()
    Set F = Worksheets("facture")
    n = WorksheetFunction.CountA(F.Columns("A"))
    For lig = 2 To n
        ' en gras à partir de 2 articles
        If (F.Cells(lig, 3) >= 2) Then
            F.Cells(lig, 1).Font.Bold = True
        Else
            F.Cells(lig, 1).Font.Bold = False
        End If
    Next lig
End Sub

La cellule active (Selection) de la macro créée par l'enregistreur a été remplacée par F.Cells(lig,1) dans l'adaptation.