Explication termes macro VBA

Bonjour,

J'aurai à nouveau besoin de vous pour m'expliquer les termes d'une macro qui m'a été donné. Pouvez-vous insérer un commentaire à chaque ligne ... (s'arrêter juste avant Case 2 biensûr)? Je débute avec VBA, et je ne comprends pas grand chose (même avec l'aide Excel).

Voici la macro :

Private Sub PutFormulas(cas As Integer)
Dim nbLi As Long
nbLi = Feuil1.[A1].CurrentRegion.Rows.Count
With Feuil1.Range("C" & nbLi + 1)
.EntireRow.Insert
Select Case cas
Case 1
.Offset(-1, 0).Formula = .Offset(-2, 0).Formula
.Offset(-1, 1).Formula = .Offset(-2, 1).Formula
Case 2
.Offset(-1, 0).Formula = .Offset(-2, 0).Formula
.Offset(-1, 1).Formula = 0
Case 3
.Offset(-1, 0).ClearContents
.Offset(-1, 1).Formula = .Offset(-2, 1).Formula
End Select
End With
End Sub

Je vous remercie par avance pour votre réponse.