Macros excel

bonjour, est il possible de me décrire chaque ligne ou étape de cette macro
merci !!

Sub Réalisé()
'
' Réalisé Macro
' Macro enregistrée le 19/03/2012 par install

Application.DisplayAlerts = False
Application.ScreenUpdating = False

ThisWorkbook.Activate
Sheets("I-1 réalisations_prévisions").Select
Range("a4").Select

Workbooks.Open Filename:="N:\Conjonture\barometre\Traitements automatisés\Intermédiares\recrutements réalisés par secteur.xls"

'calcul des réalisés sur l'ensemble - debut
Range("b2:c2").Select
realise = 0
pasrealise = 0
For compteur = 1 To 18
If ActiveCell.Value = 1 Then
realise = realise + ActiveCell.Offset(0, 1).Value
Else: pasrealise = pasrealise + ActiveCell.Offset(0, 1).Value
End If
ActiveCell.Offset(1, 0).Select
Next compteur

'calcul des réalisés par secteur
secteur = 1
Position = Range("c2").Address
Range("a22:b22").Select
For secteur = 1 To 8
ActiveCell.Value = secteur
ActiveCell.Offset(0, 1) = (Range(Position).Value / (Range(Position).Value + Range(Position).Offset(1, 0)))
resultat = ActiveCell.Offset(0, 1)

ThisWorkbook.Activate
Sheets("I-1 réalisations_prévisions").Select
Selection.End(xlToRight).Offset(0, 1).Value = resultat
ActiveCell.Offset(1, 0).Select

Workbooks("recrutements réalisés par secteur.xls").Activate
Position = Range(Position).Offset(2, 0).Address
ActiveCell.Offset(1, 0).Select
Next secteur

Workbooks("recrutements réalisés par secteur.xls").Close

'calcul des réalisés sur l'ensemble - fin
Sheets("I-1 réalisations_prévisions").Select
Range("a12").Select
Selection.End(xlToRight).Offset(0, 1).Value = realise / (realise + pasrealise)

Application.DisplayAlerts = True

End Sub