Traduction d'un code VBA

Bonjour,

J'aimerai "comprendre" ces quelques lignes de code! si on pouvait me les "traduire en clair"

Fichier joint

Merci d'avance

Nonno

bonjour,

Sub StockActuel_Plus()
  Dim i As Long

    If Sheets("Mouvement").Range("G3") = "A" Then 'si le contenu de la cellule G3 de la feuille mouvement est égal à la lettre A
        For i = 3 To Sheets("Stock").Range("B65535").End(xlUp).Row 'on prend successivement pour i les numéros de ligne de la feuille Stock, de 3 jusqu' à la dernière ligne utilisée
            If Sheets("Mouvement").Cells(4, "B") = Sheets("Stock").Cells(i, "B") Then 'si la cellule B4 de la feuille Mouvement est égale à la cellule en ligne i colonne B de la feuille stock
                Sheets("Stock").Cells(i, "G") = Sheets("Stock").Cells(i, "G") + 1 'on ajoute 1 au contenu  de la cellule en ligne i colonne G de la feuille stock
            End If
        Next i 'on passe à la valeur i suivante (=ligne suivante)
    Else ' si G3 de la feuille mouvement est différent de la lettre A
        MsgBox "Non autorisé"
    End If

End Sub

Merci!

Voila beaucoup plus clair pour moi du coup.

Crdlmt

Nonno