Macro Excel vers Google Sheets

Bonjour,

Je travaille sur un excel basé sur une macro (que j'avais il y a longtemps créé via l'enregistreur).

Aujourd'hui, je dois basculer cet excel sur google sheets et je n'arrive pas à basculer la macro. J'ai appris sur ce forum que les deux "langages" étaient différents, donc impossible de copier-coller. Mais lorsque j'essaye de l'enregistrer à nouveau, cette fois sur Google Sheets, je ne dois pas faire exactement les mêmes opérations, et du coup, celle-ci n'est pas fonctionnelle.

Est-ce quelqu'un peut m'aider ?

Merci beaucoup !!

Voici la macro de base :

Sub DetailResultats_Calcul()
'
' DetailResultats_Calcul Macro
'

'
ActiveCell.FormulaR1C1 = "='Data Vidéo'!RC[16]"
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A74"), Type:=xlFillDefault
Range("A2:A74").Select
ActiveCell.FormulaR1C1 = "='Data Vidéo'!RC[16]"
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"=SUMIFS('Data Vidéo'!C[5],'Data Vidéo'!C[15],'Détail des Résultats'!RC[-1])"
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=SUMIFS('Data Vidéo'!C[5],'Data Vidéo'!C[14],'Détail des Résultats'!RC[-2])"
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=SUMIFS('Data Vidéo'!C[12],'Data Vidéo'!C[13],'Détail des Résultats'!RC[-3])"
Range("H2").Select
ActiveCell.FormulaR1C1 = _
"=SUMIFS('Data Vidéo'!C[3],'Data Vidéo'!C[9],'Détail des Résultats'!RC[-7])"
Range("E2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-3]"
Range("F2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[2]/RC[-2]"
Range("G2").Select
ActiveCell.FormulaR1C1 = "=(RC[1]/RC[-5])*1000"
Range("E2").Select
Selection.Style = "Percent"
Selection.NumberFormat = "0.0%"
Selection.NumberFormat = "0.00%"
Range("F2").Select
Selection.Style = "Currency"
Selection.NumberFormat = _
"_-* #,##0.000 $_-;-* #,##0.000 $_-;_-* ""-""?? $_-;_-@_-"
Range("G2").Select
Selection.Style = "Currency"
Columns("H:H").Select
Selection.Style = "Currency"
Selection.NumberFormat = "_-* #,##0.0 $_-;-* #,##0.0 $_-;_-* ""-""?? $_-;_-@_-"
Selection.NumberFormat = "_-* #,##0 $_-;-* #,##0 $_-;_-* ""-""?? $_-;_-@_-"
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A74"), Type:=xlFillDefault
Range("A2:A74").Select
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B74"), Type:=xlFillDefault
Range("B2:B74").Select
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C74"), Type:=xlFillDefault
Range("C2:C74").Select
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D74"), Type:=xlFillDefault
Range("D2:D74").Select
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E74"), Type:=xlFillDefault
Range("E2:E74").Select
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F74"), Type:=xlFillDefault
Range("F2:F74").Select
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:G74"), Type:=xlFillDefault
Range("G2:G74").Select
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H74"), Type:=xlFillDefault
Range("H2:H74").Select
Cells.Select
Range("A75").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$H$74").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7 _
, 8), Header:=xlYes

End Sub