Ecrire le deroulement d'une macro

Sub Macro1()
Dim ong As Worksheet 'déclare la variable ong (ONGlet)
Dim pl As Range 'décalre la variable pl (PLage)
 
For Each ong In Sheets 'boucle sur tous les onglets du classeur
    ong.Activate 'active l'onglet
    Set pl = Application.Union(Columns(4), Columns(7)) 'définit la variable pl
    'remplace "confirmé" pas "Avis Passage" dans la plage pl
    pl.Replace What:="confirmé", Replacement:="Avis Passage", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next ong 'prochain onglet du classseur
End Sub