Microsoft 365 Formule excel

[Flameshadow]

Bonjour,
Je suis apprenti ingénieur en acoustique, et je dois modifier une feuille de calcul excel pour réaliser des nouveaux types d'essais.
Sauf que je tombe sur cette formule que je comprends pas du tout. Quelqu'un saurait-il me l'expliquer svp? Notamment, la partie en gras. N'étant pas un pro de VBA, je suis un peu pommé.

Merci par avance de votre aide.

Range("I1").Select
ActiveCell.FormulaR1C1 = "-100"
Do While Range("L1") < 32
Range("i1").Value = Range("i1").Value + 1
Loop

Range("i1").Value = Range("i1").Value - 1

Sheets("DONNEES").Select
'Application.CutCopyMode = False
'ActiveWindow.SmallScroll Down:=3

Range("b17").Select
Graphique

 

[xUpsilon]

Bonjour,

Alors en "traduisant" ça donne :
Ecrire dans la cellule I1 la formule =-100 (donc en gros écrire dans I1 la valeur -100, l'emploi de FormulaR1C1 n'a aucun intéret ici)
Tant que la valeur de L1 < 32
Incrémenter la valeur de I1
Boucler tant que L1 < 32

Décrémenter la valeur de I1

Voilà