Bouton /Macro simple Excel vers GoogleSheets

Bonjour à toutes et à tous.

Je suis débutant Excel et j'ai voulu crée un bouton associé à une macro simple. J'y suis arrivé...tant bien que mal ...

Quand j'ai converti mon fichier excel en googlsheets, quelle ne faut pas surprise de voir mon bouton /macro disparu dans les limbes de googlesheets...

Ainsi, pourriez-vous m'aider à "récupérer" ce fameux bouton auquel je tiens temps mais utilisable cette fois ci dans google sheets ?

D'avance merci.

La macro associé au bouton est la suivante :

Sub Archiver()
ligne = Sheets("HISTORIQUE FACTURE").Range("A2").End(xlDown).Row + 1
Sheets("HISTORIQUE FACTURE").Range("A" & ligne).Value = Sheets("FACTURE BON CADEAU ").Range("B13")
Sheets("HISTORIQUE FACTURE").Range("B" & ligne).Value = Sheets("FACTURE BON CADEAU ").Range("G12")
Sheets("HISTORIQUE FACTURE").Range("C" & ligne).Value = Sheets("FACTURE BON CADEAU ").Range("E3")
Sheets("HISTORIQUE FACTURE").Range("D" & ligne).Value = Sheets("FACTURE BON CADEAU ").Range("D31")
Sheets("HISTORIQUE FACTURE").Range("E" & ligne).Value = Sheets("FACTURE BON CADEAU ").Range("F31")
Sheets("HISTORIQUE FACTURE").Range("F" & ligne).Value = Sheets("FACTURE BON CADEAU ").Range("F34")

Sheets("FACTURE BON CADEAU ").Range("B23").ClearContents
Sheets("FACTURE BON CADEAU ").Range("B24").ClearContents
Sheets("FACTURE BON CADEAU ").Range("B25").ClearContents
Sheets("FACTURE BON CADEAU ").Range("D23").ClearContents
Sheets("FACTURE BON CADEAU ").Range("D24").ClearContents
Sheets("FACTURE BON CADEAU ").Range("D25").ClearContents
Sheets("FACTURE BON CADEAU ").Range("E3").ClearContents
Sheets("FACTURE BON CADEAU ").Range("E6").ClearContents
Sheets("FACTURE BON CADEAU ").Range("E23").ClearContents
Sheets("FACTURE BON CADEAU ").Range("E24").ClearContents
Sheets("FACTURE BON CADEAU ").Range("E25").ClearContents
Sheets("FACTURE BON CADEAU ").Range("C36").ClearContents
Sheets("FACTURE BON CADEAU ").Range("G12").ClearContents
Sheets("FACTURE BON CADEAU ").Range("C13").Value = Sheets("FACTURE BON CADEAU ").Range("C13").Value + 1

End Sub

D'avance merci !

EDIT ADMIN : pas de relance après à peine quelques heures merci (et pas en citant inutilement ton post entier)