Aide interpretation Macro

Sub Examen_decembre_2010()
Sheets("Feuil1").Select [COLOR="red"]'Sélectionne la Feuil1[/COLOR]
Cells.Clear [COLOR="red"]'Efface ttes les cellules[/COLOR]
Sheets("Feuil1").Name = "Premiere Feuille"[COLOR="red"] 'Renomme la Feuil1 en Première feuille[/COLOR]
A = 1 
i = 1
Do While A = 1 [COLOR="red"]'Fait la boucle tant que A=1[/COLOR]
    Z = InputBox("Veuillez entrer un numero a 5 chiffres") [COLOR="red"]'Z prend la valeur d'un num à 5 chiffres entré par l'utilisateur.[/COLOR]
    If Left(Z, 2) > 95 Then [COLOR="red"]'Si les 2 premiers chiffres de Z sont >95 alors[/COLOR]
Cells(i, 1) = Z [COLOR="red"]'La cellule placée ligne i, colonne A prend la valeur de Z[/COLOR]
Cells(i, 1).Front.Italic = True [COLOR="red"]'et est mise en italique[/COLOR]
If Z = 98818 Then  [COLOR="red"]'Si Z est = 98818 alors message: KOUAOUA et A=0[/COLOR]
MsgBox "KOUAOUA"
A = 0
End If
Else [COLOR="red"]'Sinon (Si z<=95)[/COLOR]
Cells(i, 2) = Left(Z, 2)  [COLOR="red"]'La cellule ligne i, colonne B = 2 premiers chiffres de Z[/COLOR]
Cells(i, 2).Font.ColorIndex = 2 [COLOR="red"]' et en Change la couleur de la police[/COLOR]
End If
i = i + 1 [COLOR="red"]'i est incrémenté[/COLOR]
Loop [COLOR="red"]'Refait la boucle tant que la condition (A=1) est vraie[/COLOR]
Columns.AutoFit [COLOR="red"]'Ajuste largeur des colonnes[/COLOR]
Sheets("Feuil2").Select [COLOR="red"]'Selectionne la feuil2[/COLOR]
For j = 1 To 5 [COLOR="red"]'Boucle de 1 à 5 fois[/COLOR]
Cells(j, j) = j ^ 2[COLOR="red"] 'Les cellules A1=1, B2=4, C3=9, D4=16, E5=25[/COLOR]
Next j 
Set W = Cells(1, 1).CurrentRegion [COLOR="red"]'W devient la plage courante de A1[/COLOR]
Y = W.Rows.Count [COLOR="red"]'Y devient le nbre de lignes utilisées par la plage W[/COLOR]
Cells(Y + 2.1) = Y 'Là je pense ça plante ! Essaie plutôt: Cells(Y+2,1)=Y 
End Sub