Aide transformation Excel en gsheets

bonjour,

J'ai ma macro Excel que je souhaiterai transformer en Gsheet,

Pourriez vous m'aider ?

Macro de Base :

Sub ENTREE()
    ligne = Sheets("Historique_Stock").Range("A2").End(xlDown).Row + 1
    Sheets("Historique_Stock").Range("A" & ligne).Value = Sheets("ENTREE EN STOCK").Range("C6").Value
    Sheets("Historique_Stock").Range("B" & ligne).Value = Sheets("ENTREE EN STOCK").Range("C11").Value
    Sheets("Historique_Stock").Range("C" & ligne).Value = Sheets("ENTREE EN STOCK").Range("D11:E11").Value
    Sheets("Historique_Stock").Range("D" & ligne).Value = Sheets("ENTREE EN STOCK").Range("C13").Value
    Sheets("Historique_Stock").Range("E" & ligne).Value = Sheets("ENTREE EN STOCK").Range("D13:E13").Value
    Sheets("Historique_Stock").Range("F" & ligne).Value = Sheets("ENTREE EN STOCK").Range("C16").Value
    Sheets("Historique_Stock").Range("G" & ligne).Value = Sheets("ENTREE EN STOCK").Range("D16").Value
    Sheets("Historique_Stock").Range("H" & ligne).Value = Sheets("ENTREE EN STOCK").Range("E16").Value
    Sheets("Historique_Stock").Range("J" & ligne).Value = Sheets("ENTREE EN STOCK").Range("C19:E22").Value
    Sheets("Historique_Stock").Range("I" & ligne).Value = Sheets("ENTREE EN STOCK").Range("D5:F6").Value
    Sheets("Historique_Stock").Range("K" & ligne).Value = Sheets("ENTREE EN STOCK").Range("C9").Value

    Sheets("ENTREE EN STOCK").Range("C11:E11").ClearContents
    Sheets("ENTREE EN STOCK").Range("C13:E13").ClearContents
    Sheets("ENTREE EN STOCK").Range("C16:E16").ClearContents
    Sheets("ENTREE EN STOCK").Range("C19:E21").ClearContents

Bonjour,

ce qui serait bien, c'est que tu mettes un lien vers une copie de ton fichier GSheets, et que tu expliques littéralement le but de la macro.

Merci d'avance.