Aide interpretation

Sub Examen_decembre_2010()
    Sheets("Feuil1").Select ' Sélectionner Feuil1
    Cells.Clear             ' Vider complètement la feuille
    Sheets("Feuil1").Name = "Premiere Feuille"  ' Renommer la Feuil1 en Première Feuille
    A = 1                   ' Affecter la valeur 1 à la variable A
    i = 1                   ' Affecter le valeur 1 à la variable i
    Do While A = 1          ' Tant que la variable A = 1, répéter
        Z = InputBox("Veuillez entrer un numero a 5 chiffres")      ' Affecter à la variable Z = le n° à 5 chiffre demandé par la boite de dialogue
        If Left(Z, 2) > 95 Then     ' Si les 2 chiffres à gauche de la variable Z sont supérieurs à 95, alors
            Cells(i, 1) = Z         ' La cellule définie par la ligne (variable i) et la colonne 1 (c'est à dire colonne A ligne i prend la valeur de la variable Z
            Cells(i, 1).Font.Italic = True     ' Cette même cellule prend le format italique
            If Z = 98818 Then       ' Si la variable Z = 98818 alors
                MsgBox "KOUAOUA"    ' On affiche le message "KOUAOUA"
                A = 0               ' Affecter la valeur 0 à la variable A
            End If                  ' Fin de la conditin si Z = 98818
        Else                        ' Sinon (si Z <> 98818)
            Cells(i, 2) = Left(Z, 2) ' La cellule définie par la ligne (variable i) et la colonne 2 (c'est à dire colonne B ligne i prend la valeur des 2 caractères gauches de la variable Z
            Cells(i, 2).Font.ColorIndex = 2 ' Le texte de cette même cellule prend la couleur Noir
        End If                      ' Fin de la condition 2 caractère à gauche de Z > 95
        i = i + 1                   ' La variable i s'incrémente de 1
    Loop                            ' On boucle sur le Do While tant que A = 1
    Columns().AutoFit                 ' Ajustement automatique de la largeur des colonnes
    Sheets("Feuil2").Select         ' On sélectionne la feuille "Feuil2"
    For j = 1 To 5                  ' Pour chaque valeur de j entre 1 et 5
        Cells(j, j) = j ^ 2         ' La cellule définie par la ligne (variable j) et la colonne (variable j) prend la valeur de j au carré
    Next j                          ' Valeur de j suivante
    Set W = Cells(1, 1).CurrentRegion   ' La variable W prend la valeur de la zone dans laquelle se trouve la cellule "A1" (1° ligne, 1° colonne)
    Y = W.Rows.Count                ' La variable Y prend la valeur du nombre de cellules contenues dans la variable W
    Cells(Y + 2.1) = Y              ' La cellule définie par la ligne (variable Y) et la colonne (2.1) prend la valeur de la variable Y
End Sub

Do While A = 1

Cells(Y + 2.1) 'sans doute cells(Y + 2, 1) parce que colonne 2.1 inconnue au bataillon

Cells(i, 1).Behind