Bonjour,
si les cellules n'ont pas tous la même couleur tu doit le faire un par un (boucle)
si ils ont tous la même couleur
Workbooks("DOUBLECHECK.XLSM").Sheets("AMY").Range("C7:O150").Interior.Color = Workbooks("Résultats Amy.XLSX").Sheets("Feuil1").Range("G2").Interior.Color
Workbooks("DOUBLECHECK.XLSM").Sheets("AMY").Range("C7:O150").Font.Color = Workbooks("Résultats Amy.XLSX").Sheets("Feuil1").Range("G2").Font.Color