Traduction VBA - google sheet

Bonjour à tous,

J'aurai besoin de savoir comment traduire du vba dans google sheet, je crois que ce dernier utilise javascript comme language.

J'ai une macro en vba (sachant que ce n'est pas moi qui l'ai fait ) et aimerai la passer sur sheet.

Je n'ai aucune connaissance dans ces 2 domaines, est-ce que qqn pourrait m'aider ?

Merci d'avance

Voici ma macro :

Sub enregistrement()

' transfert donnees excel Macro
' Transfert des donnees du BM vers le groupement BL pour la decrementation

Dim x As Integer
Dim y As Integer
Dim n As Integer
Dim b As String
Dim z As Integer

’Code pour savoir quelle est la dernière ligne non vide de la fiche de production

z = 23
y = 0

Do
   If Cells(z, 5) = “” Then
   y = 0
   Else:
   z = z + 1
   y = 1
   End If
Loop While y = 1
’z = z - 1

’Selection numero BL
       b = Worksheets(“FICHE PRODUCTION”).Cells(8, 5)

’Selection de la plage a copier
 Worksheets(“FICHE PRODUCTION”).Range(Cells(24, 5), Cells(z, 18)).Copy

  Dim wb0 As Excel.Workbook
   Set wb0 = ActiveWorkbook
   Dim wb1 As Excel.Workbook

  ’emplacement du groupement BL a modifier si le fichier Excel est deplace

  Set wb1 = Workbooks.Open(“/Users/utilisateur/Desktop/BL/GROUPEMENT_BL_1.xlsm”)
   n = 2
   x = 0
   ’Activation du classeur cible et detection de la premiere case vide pour y coller les nouvelles donnees
   wb1.Sheets(“GROUPEMENT”).Activate
Do
   If wb1.Sheets(“GROUPEMENT”).Cells(n, 4) = “” Then
       x = 0
   Else:
   n = n + 1
   x = 1
   End If
Loop While x = 1

wb1.Sheets(“GROUPEMENT”).Cells(n, 3) = b
wb1.Sheets(“GROUPEMENT”).Cells(n, 4).Select

’Collage de la plage de cellule

wb1.Sheets(“GROUPEMENT”).Range(Cells(n, 4), Cells(n + z - 23, 17)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   :=False, Transpose:=False
wb0.Activate
wb0.Sheets(“FICHE PRODUCTION”).Range(Cells(24, 3), Cells(z, 4)).Copy
wb1.Activate
wb1.Sheets(“GROUPEMENT”).Cells(n, 1).Select
’Collage de la plage de cellule pour le type de production (ST ou B2B) et le mois de facturation
wb1.Sheets(“GROUPEMENT”).Range(Cells(n, 1), Cells(n + z - 23, 2)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   :=False, Transpose:=False
n = 2

MsgBox “Fin du traitement des données !” ’message
wb1.Save
wb1.Close

End Sub