Traduire un algo en VBA ?

Quelqu'un pourrait-il m'aider à traduire en vba un algorithme que j'ai écrit en langage naturel s'il vous plait ?

Si ce n'est pas trop compliqué bien sur, je ne me rends pas trop compte car je m'y connais très peu en vba.

je pense exécuter cet algorithme à l'ouverture d'excel mais si il y a mieux à faire, dîtes-moi.

Le voici :

soit nom-feuille une variable de type feuille

nom-feuille = 1

soit num-cellule une variable de type cellule

soir nom-classeur une variable de type classeur

tant que nom-feuille inférieur à 47

faire

nom-classeur = la variable nom-feuille suivi de -PPI.xlsx (par exemple 1-PPI.xlsx)

pour num-cellule de A1 à D20, sauf les cellules vides

(c'est à dire A1, A2...A20, pui B1, B2...B20 etc. jusqu'à D20 sauf les cellules vides)

faire

la valeur de la cellule num-cellule de la feuille nom-feuille

= la valeur de la cellule num-cellule de la feuille A

du classeur nom-classeur dont le chemin d'accès est C:\

fin de la bouche pour

nom-feuille = nom-feuille+1

fin de la boucle tant que

c'est bon on m'a donné le bon code sur un autre forum, le voici au cas où :

Private Sub Workbook_Open()

Dim w As Worksheet, nf As Long, F As String

Application.DisplayAlerts = False 'si un fichier n'existe pas

For Each w In Worksheets

nf = Val(w.Name)

If nf > 0 And nf < 47 Then

F = "=IF('C:\[" & nf & "-PPI.xlsx]A'!RC="""","""",'C:\[" & nf & "-PPI.xlsx]A'!RC)"

w.[A1:D20].FormulaR1C1 = F

w.[A1:D20] = w.[A1:D20].Value 'facultatif, pour ne garder que les valeurs

End If

End Sub