demande explication sur une macro proposée par le forum

Sub a_plus()
Dim tt, ttt, b&, P_Ause
Dim r As Range
[COLOR=Green]'code de création des données de test[/COLOR]
tt = Split("ref/a/J/F/12/HG/45/LM/71", "/")
b = UBound(tt)
[E1].Resize(b + 1) = Application.Transpose(tt)
[F1].Resize(b + 1) = Application.Transpose(tt)
Range("G4,F3,F5,F7,F9").ClearContents
    With Columns("E:F")
        .HorizontalAlignment = xlCenter: .ColumnWidth = 4
        With .Font
        .Size = 12: .Bold = True
        End With
    End With
[COLOR=Green]'fin de création des données de test[/COLOR]
P_Ause = MsgBox("Remplir le vide?", vbYesNo, "Test")
If P_Ause = vbYes Then
Set r = [E1].CurrentRegion.Columns(2)
With r
.SpecialCells(4).FormulaR1C1 = "=RC[-1]"
.Value = .Value
End With
Else
End
End If
End Sub

Sub a()
[COLOR=Green]'Déclarations[/COLOR]
Dim r As Range, c As Range
[COLOR=Green]'ici on définit la plage de cellules , cad la colonne F[/COLOR]
Set r =Range("E1").CurrentRegion.Columns(2)
[COLOR=Green]'ici on insère une formule dans les cellules vides[/COLOR]
[COLOR=Green]'la formule pour F1 par exemple : =E1  (qui s'écrit : "=RC[-1]")
' R pour Row C pour Columns, cad Colonne - 1[/COLOR]
With r 
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=RC[-1]"
[COLOR=Green]'ici on transforme les formules en valeurs[/COLOR]
    .Value = .Value
End With
End Sub

Sub a()
'Déclarations
Dim r As Range, c As Range
Set r = Range([L6], [L65536].End(xlUp)).Offset(, 1)
With r
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=RC[-1]"
'ici on transforme les formules en valeurs
    .Value = .Value
End With
End Sub